Independent Project Sandox

library('readxl')
library(psych)
library(tidyverse)
library(sqldf)
library(ggplot2)
library(gridExtra)
library(cowplot)
library(e1071) 
library(car)
library(semTools)
library(pastecs)
library(sjstats) 
library(userfriendlyscience)
library(generalhoslem)
library(regclass)
library(lm.beta)
library(stargazer)
library(broom)
library(Epi)
library(arm)
library(DescTools)
library(foreign)
library(olsrr)

Attaching package: ‘olsrr’


The following object is masked from ‘package:MASS’:

    cement


The following object is masked from ‘package:datasets’:

    rivers

data <- read_excel('data_academic_performance.xlsx')

New names:
* `` -> ...10

data

A tibble: 12411 × 45

COD_S11	GENDER	EDU_FATHER	EDU_MOTHER	OCC_FATHER	OCC_MOTHER	STRATUM	SISBEN	PEOPLE_HOUSE	...10	⋯	CC_PRO	ENG_PRO	WC_PRO	FEP_PRO	G_SC	PERCENTILE	2ND_DECILE	QUARTILE	SEL	SEL_IHE
<chr>	<chr>	<chr>	<chr>	<chr>	<chr>	<chr>	<chr>	<chr>	<lgl>	⋯	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
SB11201210000129	F	Incomplete Professional Education	Complete technique or technology	Technical or professional level employee	Home	Stratum 4	It is not classified by the SISBEN	Three	NA	⋯	71	93	79	181	180	91	5	4	2	2
SB11201210000137	F	Complete Secundary	Complete professional education	Entrepreneur	Independent professional	Stratum 5	It is not classified by the SISBEN	Three	NA	⋯	86	98	78	201	182	92	5	4	4	4
SB11201210005154	M	Not sure	Not sure	Independent	Home	Stratum 2	Level 2	Five	NA	⋯	18	43	22	113	113	7	1	1	1	1
SB11201210007504	F	Not sure	Not sure	Other occupation	Independent	Stratum 2	It is not classified by the SISBEN	Three	NA	⋯	76	80	48	137	157	67	4	3	2	2
SB11201210007548	M	Complete professional education	Complete professional education	Executive	Home	Stratum 4	It is not classified by the SISBEN	One	NA	⋯	98	100	71	189	198	98	5	4	4	2
SB11201210007568	F	Complete professional education	Complete professional education	Independent	Executive	Stratum 6	It is not classified by the SISBEN	Three	NA	⋯	32	97	36	170	154	63	4	3	4	2
SB11201210007598	M	Complete professional education	Complete professional education	Small entrepreneur	Executive	Stratum 5	It is not classified by the SISBEN	Four	NA	⋯	50	92	53	187	152	59	3	3	2	2
SB11201210007615	F	Incomplete Secundary	Complete Secundary	Entrepreneur	Independent professional	Stratum 6	It is not classified by the SISBEN	Five	NA	⋯	94	97	98	188	200	99	5	4	4	4
SB11201210010208	M	Complete Secundary	Complete professional education	Independent	Operator	Stratum 2	It is not classified by the SISBEN	Three	NA	⋯	43	3	19	177	133	28	2	2	3	2
SB11201210013577	M	Incomplete technical or technological	Incomplete technical or technological	Independent	Home	Stratum 2	Level 2	Four	NA	⋯	22	83	1	112	126	18	1	1	4	2
SB11201210015404	F	Not sure	Not sure	Other occupation	Independent professional	Stratum 3	It is not classified by the SISBEN	Five	NA	⋯	93	100	98	187	200	99	5	4	2	4
SB11201210016082	M	Complete technique or technology	Complete Secundary	Technical or professional level employee	Entrepreneur	Stratum 2	It is not classified by the SISBEN	Four	NA	⋯	79	10	5	141	133	29	2	2	2	2
SB11201210017060	F	Not sure	Incomplete technical or technological	Small entrepreneur	Home	Stratum 3	It is not classified by the SISBEN	Five	NA	⋯	74	56	37	119	148	53	3	3	2	2
SB11201210019041	M	Complete professional education	Complete professional education	Entrepreneur	Small entrepreneur	Stratum 6	It is not classified by the SISBEN	Six	NA	⋯	80	97	83	180	191	96	5	4	4	4
SB11201210023458	F	Incomplete primary	Incomplete primary	Small entrepreneur	Executive	Stratum 1	Level 1	Two	NA	⋯	81	36	76	137	157	67	4	3	1	2
SB11201210024129	F	Complete technique or technology	Not sure	Technical or professional level employee	Technical or professional level employee	Stratum 3	It is not classified by the SISBEN	Two	NA	⋯	77	74	30	172	164	76	4	4	4	2
SB11201210024212	M	Complete professional education	Complete professional education	Small entrepreneur	Executive	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	72	89	8	145	162	73	4	3	4	1
SB11201210024226	M	Complete professional education	Complete professional education	Independent professional	Independent professional	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	100	94	75	164	188	95	5	4	4	1
SB11201210024293	M	Complete technique or technology	Complete Secundary	Operator	Independent	Stratum 2	Level 2	Four	NA	⋯	12	19	65	120	129	22	2	1	2	1
SB11201210024453	M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	Stratum 3	Esta clasificada en otro Level del SISBEN	Three	NA	⋯	52	74	59	135	170	82	5	4	2	2
SB11201210024457	M	Complete professional education	Complete professional education	Independent professional	Executive	Stratum 3	It is not classified by the SISBEN	Three	NA	⋯	54	89	38	90	170	83	5	4	4	2
SB11201210024464	M	Incomplete primary	Incomplete Secundary	Independent	Home	Stratum 2	It is not classified by the SISBEN	Four	NA	⋯	49	60	44	168	144	46	3	2	1	2
SB11201210033482	M	Complete primary	Incomplete primary	Independent	Home	Stratum 4	It is not classified by the SISBEN	Four	NA	⋯	37	65	14	126	138	37	2	2	2	3
SB11201210034473	M	Incomplete primary	Incomplete primary	0	0	Stratum 2	It is not classified by the SISBEN	Five	NA	⋯	22	88	44	174	164	76	4	4	4	2
SB11201210034479	M	Complete professional education	Incomplete Professional Education	Executive	Operator	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	93	92	74	179	194	97	5	4	1	2
SB11201210034510	M	Complete technique or technology	Complete technique or technology	Executive	Home	Stratum 3	It is not classified by the SISBEN	Three	NA	⋯	91	97	91	78	201	99	5	4	2	2
SB11201210034773	M	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	15	84	89	108	155	64	4	3	3	2
SB11201210034995	M	Postgraduate education	Complete professional education	Executive	Auxiliary or Administrative	Stratum 6	It is not classified by the SISBEN	Five	NA	⋯	74	97	73	81	180	91	5	4	4	2
SB11201210035092	F	Complete Secundary	Complete technique or technology	Technical or professional level employee	Home	Stratum 4	It is not classified by the SISBEN	Four	NA	⋯	36	61	35	117	137	34	2	2	4	3
SB11201210035156	F	Complete technique or technology	Complete technique or technology	Executive	Independent	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	76	75	66	158	161	73	4	3	2	3
⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋱	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮
SB11201420530432	F	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	88	75	63	63	179	90	5	4	4	4
SB11201420532449	F	Postgraduate education	Postgraduate education	Technical or professional level employee	Technical or professional level employee	Stratum 4	It is not classified by the SISBEN	Four	NA	⋯	97	99	100	150	215	100	5	4	4	4
SB11201420533332	M	Complete Secundary	Complete technique or technology	Other occupation	Other occupation	Stratum 2	It is not classified by the SISBEN	Five	NA	⋯	48	20	92	174	154	62	4	3	2	2
SB11201420533363	F	Complete primary	Complete Secundary	Other occupation	Home	Stratum 3	It is not classified by the SISBEN	Five	NA	⋯	86	58	52	169	168	81	5	4	1	2
SB11201420534279	M	Postgraduate education	Postgraduate education	Executive	Executive	Stratum 6	It is not classified by the SISBEN	Four	NA	⋯	100	98	43	205	194	98	5	4	4	4
SB11201420535280	M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	Stratum 3	It is not classified by the SISBEN	Five	NA	⋯	100	100	72	235	209	100	5	4	4	4
SB11201420535695	F	Complete Secundary	Complete Secundary	Other occupation	Other occupation	Stratum 2	Level 2	Three	NA	⋯	24	62	95	167	171	83	5	4	2	2
SB11201420537465	F	Incomplete primary	Complete primary	Independent	Home	Stratum 1	Level 1	Three	NA	⋯	94	44	84	44	183	93	5	4	1	3
SB11201420537512	F	Complete Secundary	Incomplete Secundary	Independent	Home	Stratum 1	Level 1	Six	NA	⋯	86	74	30	144	161	73	4	3	1	2
SB11201420539243	F	Complete professional education	Complete Secundary	Operator	Retired	Stratum 3	It is not classified by the SISBEN	Three	NA	⋯	76	57	91	153	166	78	4	4	3	3
SB11201420540364	F	Incomplete Professional Education	Complete technique or technology	Auxiliary or Administrative	Other occupation	Stratum 3	It is not classified by the SISBEN	Two	NA	⋯	81	69	37	146	159	70	4	3	2	2
SB11201420543217	M	Complete primary	Complete Secundary	Operator	Home	Stratum 2	It is not classified by the SISBEN	Six	NA	⋯	92	9	90	174	161	73	4	3	1	2
SB11201420543894	M	Complete professional education	Complete professional education	Executive	Other occupation	Stratum 4	It is not classified by the SISBEN	Five	NA	⋯	91	96	23	198	179	90	5	4	4	4
SB11201420543965	M	Incomplete primary	Complete Secundary	Independent	Home	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	43	27	39	140	138	36	2	2	2	2
SB11201420548095	F	Complete professional education	Complete Secundary	Small entrepreneur	Small entrepreneur	Stratum 2	It is not classified by the SISBEN	Four	NA	⋯	2	25	73	111	127	20	2	1	2	2
SB11201420548458	M	Incomplete Professional Education	Complete professional education	Independent	Other occupation	Stratum 4	It is not classified by the SISBEN	Four	NA	⋯	61	86	83	167	177	89	5	4	4	2
SB11201420552390	F	Complete Secundary	Complete Secundary	Operator	Home	Stratum 3	Level 2	Three	NA	⋯	29	17	42	86	127	19	1	1	2	2
SB11201420552622	M	Incomplete Secundary	Incomplete Secundary	Independent	Home	Stratum 1	Level 1	Six	NA	⋯	90	77	29	179	180	91	5	4	1	4
SB11201420559445	F	Complete Secundary	Complete primary	Other occupation	Independent	Stratum 2	Level 1	Five	NA	⋯	87	91	67	91	182	92	5	4	1	3
SB11201420559600	F	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	Stratum 4	It is not classified by the SISBEN	Four	NA	⋯	89	89	50	89	169	82	5	4	4	3
SB11201420560726	F	Complete Secundary	Incomplete technical or technological	Independent	Auxiliary or Administrative	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	39	48	8	8	135	31	2	2	2	3
SB11201420561497	F	Incomplete technical or technological	Complete technique or technology	Operator	Independent professional	Stratum 2	Level 1	Six	NA	⋯	93	90	41	173	181	92	5	4	2	4
SB11201420565266	F	Not sure	Not sure	Technical or professional level employee	Home	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	83	88	65	65	179	90	5	4	2	4
SB11201420565289	F	Not sure	Not sure	Technical or professional level employee	Home	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	53	92	84	173	183	93	5	4	4	4
SB11201420565781	M	Incomplete technical or technological	Incomplete Secundary	Other occupation	Home	Stratum 2	It is not classified by the SISBEN	Two	NA	⋯	31	88	0	140	130	25	2	2	3	2
SB11201420568705	M	Ninguno	Complete Secundary	Other occupation	Auxiliary or Administrative	Stratum 2	It is not classified by the SISBEN	Six	NA	⋯	86	87	65	142	176	88	5	4	2	2
SB11201420573045	M	Complete professional education	Complete Secundary	Executive	Other occupation	Stratum 2	Level 2	Five	NA	⋯	44	11	0	127	107	4	1	1	4	2
SB11201420578809	M	Complete technique or technology	Complete technique or technology	Retired	Home	Stratum 2	Level 2	Five	NA	⋯	90	81	87	192	188	95	5	4	2	2
SB11201420578812	F	Complete professional education	Complete professional education	Independent professional	Small entrepreneur	Stratum 3	It is not classified by the SISBEN	Seven	NA	⋯	51	8	42	121	146	50	3	3	3	2
SB11201420583232	M	Complete Secundary	Complete primary	Independent	Home	Stratum 3	Level 1	Four	NA	⋯	91	79	47	193	178	89	5	4	2	4

df<-data

names(df)

1. 'COD_S11'
2. 'GENDER'
3. 'EDU_FATHER'
4. 'EDU_MOTHER'
5. 'OCC_FATHER'
6. 'OCC_MOTHER'
7. 'STRATUM'
8. 'SISBEN'
9. 'PEOPLE_HOUSE'
10. '...10'
11. 'INTERNET'
12. 'TV'
13. 'COMPUTER'
14. 'WASHING_MCH'
15. 'MIC_OVEN'
16. 'CAR'
17. 'DVD'
18. 'FRESH'
19. 'PHONE'
20. 'MOBILE'
21. 'REVENUE'
22. 'JOB'
23. 'SCHOOL_NAME'
24. 'SCHOOL_NAT'
25. 'SCHOOL_TYPE'
26. 'MAT_S11'
27. 'CR_S11'
28. 'CC_S11'
29. 'BIO_S11'
30. 'ENG_S11'
31. 'Cod_SPro'
32. 'UNIVERSITY'
33. 'ACADEMIC_PROGRAM'
34. 'QR_PRO'
35. 'CR_PRO'
36. 'CC_PRO'
37. 'ENG_PRO'
38. 'WC_PRO'
39. 'FEP_PRO'
40. 'G_SC'
41. 'PERCENTILE'
42. '2ND_DECILE'
43. 'QUARTILE'
44. 'SEL'
45. 'SEL_IHE'

# to summarise the data properally, convert characters to factors
# df[] <- lapply( df, factor)
col_names <- c('GENDER','EDU_FATHER','EDU_MOTHER','OCC_FATHER','OCC_MOTHER','STRATUM','SISBEN','PEOPLE_HOUSE','INTERNET','TV','COMPUTER','WASHING_MCH','MIC_OVEN','CAR','DVD','FRESH','PHONE','MOBILE','REVENUE','JOB','SCHOOL_NAME','SCHOOL_NAT','SCHOOL_TYPE','Cod_SPro','UNIVERSITY','ACADEMIC_PROGRAM')

df[col_names] <- lapply(df[col_names] , factor)

df

A tibble: 12411 × 45

COD_S11	GENDER	EDU_FATHER	EDU_MOTHER	OCC_FATHER	OCC_MOTHER	STRATUM	SISBEN	PEOPLE_HOUSE	...10	⋯	CC_PRO	ENG_PRO	WC_PRO	FEP_PRO	G_SC	PERCENTILE	2ND_DECILE	QUARTILE	SEL	SEL_IHE
<chr>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<lgl>	⋯	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
SB11201210000129	F	Incomplete Professional Education	Complete technique or technology	Technical or professional level employee	Home	Stratum 4	It is not classified by the SISBEN	Three	NA	⋯	71	93	79	181	180	91	5	4	2	2
SB11201210000137	F	Complete Secundary	Complete professional education	Entrepreneur	Independent professional	Stratum 5	It is not classified by the SISBEN	Three	NA	⋯	86	98	78	201	182	92	5	4	4	4
SB11201210005154	M	Not sure	Not sure	Independent	Home	Stratum 2	Level 2	Five	NA	⋯	18	43	22	113	113	7	1	1	1	1
SB11201210007504	F	Not sure	Not sure	Other occupation	Independent	Stratum 2	It is not classified by the SISBEN	Three	NA	⋯	76	80	48	137	157	67	4	3	2	2
SB11201210007548	M	Complete professional education	Complete professional education	Executive	Home	Stratum 4	It is not classified by the SISBEN	One	NA	⋯	98	100	71	189	198	98	5	4	4	2
SB11201210007568	F	Complete professional education	Complete professional education	Independent	Executive	Stratum 6	It is not classified by the SISBEN	Three	NA	⋯	32	97	36	170	154	63	4	3	4	2
SB11201210007598	M	Complete professional education	Complete professional education	Small entrepreneur	Executive	Stratum 5	It is not classified by the SISBEN	Four	NA	⋯	50	92	53	187	152	59	3	3	2	2
SB11201210007615	F	Incomplete Secundary	Complete Secundary	Entrepreneur	Independent professional	Stratum 6	It is not classified by the SISBEN	Five	NA	⋯	94	97	98	188	200	99	5	4	4	4
SB11201210010208	M	Complete Secundary	Complete professional education	Independent	Operator	Stratum 2	It is not classified by the SISBEN	Three	NA	⋯	43	3	19	177	133	28	2	2	3	2
SB11201210013577	M	Incomplete technical or technological	Incomplete technical or technological	Independent	Home	Stratum 2	Level 2	Four	NA	⋯	22	83	1	112	126	18	1	1	4	2
SB11201210015404	F	Not sure	Not sure	Other occupation	Independent professional	Stratum 3	It is not classified by the SISBEN	Five	NA	⋯	93	100	98	187	200	99	5	4	2	4
SB11201210016082	M	Complete technique or technology	Complete Secundary	Technical or professional level employee	Entrepreneur	Stratum 2	It is not classified by the SISBEN	Four	NA	⋯	79	10	5	141	133	29	2	2	2	2
SB11201210017060	F	Not sure	Incomplete technical or technological	Small entrepreneur	Home	Stratum 3	It is not classified by the SISBEN	Five	NA	⋯	74	56	37	119	148	53	3	3	2	2
SB11201210019041	M	Complete professional education	Complete professional education	Entrepreneur	Small entrepreneur	Stratum 6	It is not classified by the SISBEN	Six	NA	⋯	80	97	83	180	191	96	5	4	4	4
SB11201210023458	F	Incomplete primary	Incomplete primary	Small entrepreneur	Executive	Stratum 1	Level 1	Two	NA	⋯	81	36	76	137	157	67	4	3	1	2
SB11201210024129	F	Complete technique or technology	Not sure	Technical or professional level employee	Technical or professional level employee	Stratum 3	It is not classified by the SISBEN	Two	NA	⋯	77	74	30	172	164	76	4	4	4	2
SB11201210024212	M	Complete professional education	Complete professional education	Small entrepreneur	Executive	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	72	89	8	145	162	73	4	3	4	1
SB11201210024226	M	Complete professional education	Complete professional education	Independent professional	Independent professional	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	100	94	75	164	188	95	5	4	4	1
SB11201210024293	M	Complete technique or technology	Complete Secundary	Operator	Independent	Stratum 2	Level 2	Four	NA	⋯	12	19	65	120	129	22	2	1	2	1
SB11201210024453	M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	Stratum 3	Esta clasificada en otro Level del SISBEN	Three	NA	⋯	52	74	59	135	170	82	5	4	2	2
SB11201210024457	M	Complete professional education	Complete professional education	Independent professional	Executive	Stratum 3	It is not classified by the SISBEN	Three	NA	⋯	54	89	38	90	170	83	5	4	4	2
SB11201210024464	M	Incomplete primary	Incomplete Secundary	Independent	Home	Stratum 2	It is not classified by the SISBEN	Four	NA	⋯	49	60	44	168	144	46	3	2	1	2
SB11201210033482	M	Complete primary	Incomplete primary	Independent	Home	Stratum 4	It is not classified by the SISBEN	Four	NA	⋯	37	65	14	126	138	37	2	2	2	3
SB11201210034473	M	Incomplete primary	Incomplete primary	0	0	Stratum 2	It is not classified by the SISBEN	Five	NA	⋯	22	88	44	174	164	76	4	4	4	2
SB11201210034479	M	Complete professional education	Incomplete Professional Education	Executive	Operator	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	93	92	74	179	194	97	5	4	1	2
SB11201210034510	M	Complete technique or technology	Complete technique or technology	Executive	Home	Stratum 3	It is not classified by the SISBEN	Three	NA	⋯	91	97	91	78	201	99	5	4	2	2
SB11201210034773	M	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	15	84	89	108	155	64	4	3	3	2
SB11201210034995	M	Postgraduate education	Complete professional education	Executive	Auxiliary or Administrative	Stratum 6	It is not classified by the SISBEN	Five	NA	⋯	74	97	73	81	180	91	5	4	4	2
SB11201210035092	F	Complete Secundary	Complete technique or technology	Technical or professional level employee	Home	Stratum 4	It is not classified by the SISBEN	Four	NA	⋯	36	61	35	117	137	34	2	2	4	3
SB11201210035156	F	Complete technique or technology	Complete technique or technology	Executive	Independent	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	76	75	66	158	161	73	4	3	2	3
⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋱	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮
SB11201420530432	F	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	88	75	63	63	179	90	5	4	4	4
SB11201420532449	F	Postgraduate education	Postgraduate education	Technical or professional level employee	Technical or professional level employee	Stratum 4	It is not classified by the SISBEN	Four	NA	⋯	97	99	100	150	215	100	5	4	4	4
SB11201420533332	M	Complete Secundary	Complete technique or technology	Other occupation	Other occupation	Stratum 2	It is not classified by the SISBEN	Five	NA	⋯	48	20	92	174	154	62	4	3	2	2
SB11201420533363	F	Complete primary	Complete Secundary	Other occupation	Home	Stratum 3	It is not classified by the SISBEN	Five	NA	⋯	86	58	52	169	168	81	5	4	1	2
SB11201420534279	M	Postgraduate education	Postgraduate education	Executive	Executive	Stratum 6	It is not classified by the SISBEN	Four	NA	⋯	100	98	43	205	194	98	5	4	4	4
SB11201420535280	M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	Stratum 3	It is not classified by the SISBEN	Five	NA	⋯	100	100	72	235	209	100	5	4	4	4
SB11201420535695	F	Complete Secundary	Complete Secundary	Other occupation	Other occupation	Stratum 2	Level 2	Three	NA	⋯	24	62	95	167	171	83	5	4	2	2
SB11201420537465	F	Incomplete primary	Complete primary	Independent	Home	Stratum 1	Level 1	Three	NA	⋯	94	44	84	44	183	93	5	4	1	3
SB11201420537512	F	Complete Secundary	Incomplete Secundary	Independent	Home	Stratum 1	Level 1	Six	NA	⋯	86	74	30	144	161	73	4	3	1	2
SB11201420539243	F	Complete professional education	Complete Secundary	Operator	Retired	Stratum 3	It is not classified by the SISBEN	Three	NA	⋯	76	57	91	153	166	78	4	4	3	3
SB11201420540364	F	Incomplete Professional Education	Complete technique or technology	Auxiliary or Administrative	Other occupation	Stratum 3	It is not classified by the SISBEN	Two	NA	⋯	81	69	37	146	159	70	4	3	2	2
SB11201420543217	M	Complete primary	Complete Secundary	Operator	Home	Stratum 2	It is not classified by the SISBEN	Six	NA	⋯	92	9	90	174	161	73	4	3	1	2
SB11201420543894	M	Complete professional education	Complete professional education	Executive	Other occupation	Stratum 4	It is not classified by the SISBEN	Five	NA	⋯	91	96	23	198	179	90	5	4	4	4
SB11201420543965	M	Incomplete primary	Complete Secundary	Independent	Home	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	43	27	39	140	138	36	2	2	2	2
SB11201420548095	F	Complete professional education	Complete Secundary	Small entrepreneur	Small entrepreneur	Stratum 2	It is not classified by the SISBEN	Four	NA	⋯	2	25	73	111	127	20	2	1	2	2
SB11201420548458	M	Incomplete Professional Education	Complete professional education	Independent	Other occupation	Stratum 4	It is not classified by the SISBEN	Four	NA	⋯	61	86	83	167	177	89	5	4	4	2
SB11201420552390	F	Complete Secundary	Complete Secundary	Operator	Home	Stratum 3	Level 2	Three	NA	⋯	29	17	42	86	127	19	1	1	2	2
SB11201420552622	M	Incomplete Secundary	Incomplete Secundary	Independent	Home	Stratum 1	Level 1	Six	NA	⋯	90	77	29	179	180	91	5	4	1	4
SB11201420559445	F	Complete Secundary	Complete primary	Other occupation	Independent	Stratum 2	Level 1	Five	NA	⋯	87	91	67	91	182	92	5	4	1	3
SB11201420559600	F	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	Stratum 4	It is not classified by the SISBEN	Four	NA	⋯	89	89	50	89	169	82	5	4	4	3
SB11201420560726	F	Complete Secundary	Incomplete technical or technological	Independent	Auxiliary or Administrative	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	39	48	8	8	135	31	2	2	2	3
SB11201420561497	F	Incomplete technical or technological	Complete technique or technology	Operator	Independent professional	Stratum 2	Level 1	Six	NA	⋯	93	90	41	173	181	92	5	4	2	4
SB11201420565266	F	Not sure	Not sure	Technical or professional level employee	Home	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	83	88	65	65	179	90	5	4	2	4
SB11201420565289	F	Not sure	Not sure	Technical or professional level employee	Home	Stratum 3	It is not classified by the SISBEN	Four	NA	⋯	53	92	84	173	183	93	5	4	4	4
SB11201420565781	M	Incomplete technical or technological	Incomplete Secundary	Other occupation	Home	Stratum 2	It is not classified by the SISBEN	Two	NA	⋯	31	88	0	140	130	25	2	2	3	2
SB11201420568705	M	Ninguno	Complete Secundary	Other occupation	Auxiliary or Administrative	Stratum 2	It is not classified by the SISBEN	Six	NA	⋯	86	87	65	142	176	88	5	4	2	2
SB11201420573045	M	Complete professional education	Complete Secundary	Executive	Other occupation	Stratum 2	Level 2	Five	NA	⋯	44	11	0	127	107	4	1	1	4	2
SB11201420578809	M	Complete technique or technology	Complete technique or technology	Retired	Home	Stratum 2	Level 2	Five	NA	⋯	90	81	87	192	188	95	5	4	2	2
SB11201420578812	F	Complete professional education	Complete professional education	Independent professional	Small entrepreneur	Stratum 3	It is not classified by the SISBEN	Seven	NA	⋯	51	8	42	121	146	50	3	3	3	2
SB11201420583232	M	Complete Secundary	Complete primary	Independent	Home	Stratum 3	Level 1	Four	NA	⋯	91	79	47	193	178	89	5	4	2	4

summary(df)

   COD_S11          GENDER                              EDU_FATHER  
 Length:12411       F:5043   Complete professional education :3016  
 Class :character   M:7368   Complete Secundary              :2843  
 Mode  :character            Complete technique or technology:1194  
                             Incomplete Secundary            :1091  
                             Postgraduate education          :1085  
                             Complete primary                : 824  
                             (Other)                         :2358  
                            EDU_MOTHER  
 Complete Secundary              :3106  
 Complete professional education :3059  
 Complete technique or technology:1495  
 Incomplete Secundary            :1056  
 Postgraduate education          : 997  
 Complete primary                : 713  
 (Other)                         :1985  
                                    OCC_FATHER  
 Independent                             :2907  
 Technical or professional level employee:1803  
 Operator                                :1537  
 Other occupation                        :1087  
 Executive                               :1077  
 0                                       : 940  
 (Other)                                 :3060  
                                    OCC_MOTHER        STRATUM    
 Home                                    :4658   0        :  14  
 Technical or professional level employee:1795   Stratum 1:1709  
 Independent                             :1107   Stratum 2:4029  
 Auxiliary or Administrative             : 846   Stratum 3:4045  
 Executive                               : 794   Stratum 4:1578  
 Independent professional                : 715   Stratum 5: 633  
 (Other)                                 :2496   Stratum 6: 403  
                                       SISBEN      PEOPLE_HOUSE   ...10        
 0                                        :  21   Four   :4767   Mode:logical  
 Esta clasificada en otro Level del SISBEN:  96   Five   :2870   NA's:12411    
 It is not classified by the SISBEN       :7534   Three  :2345                 
 Level 1                                  :2057   Six    :1090                 
 Level 2                                  :2120   Two    : 592                 
 Level 3                                  : 583   Seven  : 372                 
                                                  (Other): 375                 
 INTERNET     TV        COMPUTER    WASHING_MCH MIC_OVEN    CAR      
 No :2659   No : 1842   No : 2237   No :4723    No :3841   No :6602  
 Yes:9752   Yes:10569   Yes:10174   Yes:7688    Yes:8570   Yes:5809  
                                                                     
                                                                     
                                                                     
                                                                     
                                                                     
  DVD       FRESH       PHONE       MOBILE    
 No :3089   No :  381   No :  521   No :3564  
 Yes:9322   Yes:12030   Yes:11890   Yes:8847  
                                              
                                              
                                              
                                              
                                              
                           REVENUE                                   JOB       
 Between 1 and less than 2 LMMW:3873   0                               :  138  
 Between 2 and less than 3 LMMW:2783   No                              :11909  
 Between 3 and less than 5 LMMW:2239   Yes, 20 hours or more per week  :  134  
 less than 1 LMMW              :1037   Yes, less than 20 hours per week:  230  
 Between 5 and less than 7 LMMW: 973                                           
 10 or more LMMW               : 718                                           
 (Other)                       : 788                                           
                       SCHOOL_NAME      SCHOOL_NAT               SCHOOL_TYPE  
 CIUDAD ESCOLAR DE COMFENALCO:   47   PRIVATE:6565   ACADEMIC          :7834  
 COL LA SALLE                :   42   PUBLIC :5846   Not apply         :   5  
 COLEGIO DEL SAGRADO CORAZON :   40                  TECHNICAL         :1059  
 COL. MILITAR ALMIRANTE COLON:   39                  TECHNICAL/ACADEMIC:3513  
 COL CALASANZ                :   38                                           
 COL CHAMPAGNAT              :   33                                           
 (Other)                     :12172                                           
    MAT_S11           CR_S11           CC_S11          BIO_S11      
 Min.   : 26.00   Min.   : 24.00   Min.   :  0.00   Min.   : 11.00  
 1st Qu.: 56.00   1st Qu.: 54.00   1st Qu.: 54.00   1st Qu.: 56.00  
 Median : 64.00   Median : 61.00   Median : 60.00   Median : 64.00  
 Mean   : 64.32   Mean   : 60.78   Mean   : 60.71   Mean   : 63.95  
 3rd Qu.: 72.00   3rd Qu.: 67.00   3rd Qu.: 67.00   3rd Qu.: 71.00  
 Max.   :100.00   Max.   :100.00   Max.   :100.00   Max.   :100.00  
                                                                    
    ENG_S11                Cod_SPro    
 Min.   : 26.0   EK201830012603:    2  
 1st Qu.: 50.0   EK201830013197:    2  
 Median : 59.0   EK201830017763:    2  
 Mean   : 61.8   EK201830022057:    2  
 3rd Qu.: 72.0   EK201830030238:    2  
 Max.   :100.0   EK201830036216:    2  
                 (Other)       :12399  
                                                        UNIVERSITY  
 UNIVERSIDAD DE LOS ANDES-BOGOTÁ D.C.                        : 696  
 ESCUELA COLOMBIANA DE INGENIERIA"JULIO GARAVITO"-BOGOTÁ D.C.: 397  
 UNIVERSIDAD INDUSTRIAL DE SANTANDER-BUCARAMANGA             : 397  
 UNIVERSIDAD DEL NORTE-BARRANQUILLA                          : 376  
 UNIVERSIDAD DISTRITAL"FRANCISCO JOSE DE CALDAS"-BOGOTÁ D.C. : 335  
 FUNDACION UNIVERSIDAD DE AMERICA-BOGOTÁ D.C.                : 326  
 (Other)                                                     :9884  
               ACADEMIC_PROGRAM     QR_PRO           CR_PRO     
 INDUSTRIAL ENGINEERING:5318    Min.   :  1.00   Min.   :  1.0  
 CIVIL ENGINEERING     :3320    1st Qu.: 65.00   1st Qu.: 42.0  
 MECHANICAL ENGINEERING:1135    Median : 85.00   Median : 67.0  
 CHEMICAL ENGINEERING  :1000    Mean   : 77.42   Mean   : 62.2  
 ELECTRONIC ENGINEERING: 849    3rd Qu.: 96.00   3rd Qu.: 86.0  
 ELECTRIC ENGINEERING  : 278    Max.   :100.00   Max.   :100.0  
 (Other)               : 511                                    
     CC_PRO          ENG_PRO          WC_PRO         FEP_PRO     
 Min.   :  1.00   Min.   :  1.0   Min.   :  0.0   Min.   :  1.0  
 1st Qu.: 36.00   1st Qu.: 51.0   1st Qu.: 28.0   1st Qu.:124.0  
 Median : 65.00   Median : 74.0   Median : 56.0   Median :153.0  
 Mean   : 59.19   Mean   : 67.5   Mean   : 53.7   Mean   :145.5  
 3rd Qu.: 85.00   3rd Qu.: 88.0   3rd Qu.: 80.0   3rd Qu.:174.0  
 Max.   :100.00   Max.   :100.0   Max.   :100.0   Max.   :300.0  
                                                                 
      G_SC         PERCENTILE       2ND_DECILE       QUARTILE    
 Min.   : 37.0   Min.   :  1.00   Min.   :1.000   Min.   :1.000  
 1st Qu.:147.0   1st Qu.: 51.00   1st Qu.:3.000   1st Qu.:3.000  
 Median :163.0   Median : 75.00   Median :4.000   Median :4.000  
 Mean   :162.7   Mean   : 68.45   Mean   :3.886   Mean   :3.189  
 3rd Qu.:179.0   3rd Qu.: 90.00   3rd Qu.:5.000   3rd Qu.:4.000  
 Max.   :247.0   Max.   :100.00   Max.   :5.000   Max.   :4.000  
                                                                 
      SEL           SEL_IHE     
 Min.   :1.000   Min.   :1.000  
 1st Qu.:2.000   1st Qu.:2.000  
 Median :2.000   Median :2.000  
 Mean   :2.599   Mean   :2.409  
 3rd Qu.:4.000   3rd Qu.:3.000  
 Max.   :4.000   Max.   :4.000  
                                

# selecting only the variables of interest
filter_data <- sqldf('select GENDER, STRATUM ,EDU_FATHER,EDU_MOTHER,OCC_FATHER,OCC_MOTHER,SISBEN,PEOPLE_HOUSE,INTERNET,TV,COMPUTER,WASHING_MCH,MIC_OVEN,CAR,DVD,PHONE,MOBILE,REVENUE,JOB,
                        SCHOOL_NAT,SCHOOL_TYPE,MAT_S11,CR_S11,BIO_S11,ENG_S11,G_SC,CC_S11 FROM df')

filter_data

A data.frame: 12411 × 25

GENDER	EDU_FATHER	EDU_MOTHER	OCC_FATHER	OCC_MOTHER	SISBEN	PEOPLE_HOUSE	INTERNET	TV	COMPUTER	⋯	MOBILE	REVENUE	JOB	SCHOOL_NAT	SCHOOL_TYPE	MAT_S11	CR_S11	BIO_S11	ENG_S11	G_SC
<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	⋯	<fct>	<fct>	<fct>	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
F	Incomplete Professional Education	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	71	81	86	82	180
F	Complete Secundary	Complete professional education	Entrepreneur	Independent professional	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	83	75	100	88	182
M	Not sure	Not sure	Independent	Home	Level 2	Five	No	No	Yes	⋯	No	Between 1 and less than 2 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	52	49	46	42	113
F	Not sure	Not sure	Other occupation	Independent	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	56	55	64	73	157
M	Complete professional education	Complete professional education	Executive	Home	It is not classified by the SISBEN	One	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	80	65	85	92	198
F	Complete professional education	Complete professional education	Independent	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	71	60	61	82	154
M	Complete professional education	Complete professional education	Small entrepreneur	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	71	75	75	85	152
F	Incomplete Secundary	Complete Secundary	Entrepreneur	Independent professional	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	10 or more LMMW	No	PRIVATE	ACADEMIC	74	67	85	96	200
M	Complete Secundary	Complete professional education	Independent	Operator	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	TECHNICAL	44	54	44	46	133
M	Incomplete technical or technological	Incomplete technical or technological	Independent	Home	Level 2	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	52	55	55	65	126
F	Not sure	Not sure	Other occupation	Independent professional	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	74	71	78	96	200
M	Complete technique or technology	Complete Secundary	Technical or professional level employee	Entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	54	47	45	43	133
F	Not sure	Incomplete technical or technological	Small entrepreneur	Home	It is not classified by the SISBEN	Five	No	Yes	Yes	⋯	No	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	56	62	61	50	148
M	Complete professional education	Complete professional education	Entrepreneur	Small entrepreneur	It is not classified by the SISBEN	Six	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	76	71	75	82	191
F	Incomplete primary	Incomplete primary	Small entrepreneur	Executive	Level 1	Two	No	No	No	⋯	No	less than 1 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	56	45	51	44	157
F	Complete technique or technology	Not sure	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Two	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	62	58	55	59	164
M	Complete professional education	Complete professional education	Small entrepreneur	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	74	67	78	68	162
M	Complete professional education	Complete professional education	Independent professional	Independent professional	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	74	64	72	88	188
M	Complete technique or technology	Complete Secundary	Operator	Independent	Level 2	Four	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	Yes, less than 20 hours per week	PRIVATE	ACADEMIC	44	49	44	44	129
M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	Esta clasificada en otro Level del SISBEN	Three	Yes	Yes	Yes	⋯	No	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	61	44	41	53	170
M	Complete professional education	Complete professional education	Independent professional	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	58	53	48	58	170
M	Incomplete primary	Incomplete Secundary	Independent	Home	It is not classified by the SISBEN	Four	Yes	No	Yes	⋯	Yes	less than 1 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	60	47	56	57	144
M	Complete primary	Incomplete primary	Independent	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	53	47	36	64	138
M	Incomplete primary	Incomplete primary	0	0	It is not classified by the SISBEN	Five	Yes	Yes	No	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	67	65	72	82	164
M	Complete professional education	Incomplete Professional Education	Executive	Operator	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	80	71	66	75	194
M	Complete technique or technology	Complete technique or technology	Executive	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	83	75	100	71	201
M	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	69	56	63	70	155
M	Postgraduate education	Complete professional education	Executive	Auxiliary or Administrative	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	85	71	72	92	180
F	Complete Secundary	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	48	56	51	54	137
F	Complete technique or technology	Complete technique or technology	Executive	Independent	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	48	44	61	48	161
⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋱	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮
F	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	67	72	75	62	179
F	Postgraduate education	Postgraduate education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	74	72	70	100	215
M	Complete Secundary	Complete technique or technology	Other occupation	Other occupation	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	61	57	61	52	154
F	Complete primary	Complete Secundary	Other occupation	Home	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	52	67	61	53	168
M	Postgraduate education	Postgraduate education	Executive	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	87	72	74	88	194
M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC	85	72	81	65	209
F	Complete Secundary	Complete Secundary	Other occupation	Other occupation	Level 2	Three	No	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	55	55	63	58	171
F	Incomplete primary	Complete primary	Independent	Home	Level 1	Three	No	No	No	⋯	No	less than 1 LMMW	No	PUBLIC	TECHNICAL	69	67	73	59	183
F	Complete Secundary	Incomplete Secundary	Independent	Home	Level 1	Six	Yes	Yes	Yes	⋯	Yes	less than 1 LMMW	No	PUBLIC	ACADEMIC	63	63	72	61	161
F	Complete professional education	Complete Secundary	Operator	Retired	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	66	60	58	51	166
F	Incomplete Professional Education	Complete technique or technology	Auxiliary or Administrative	Other occupation	It is not classified by the SISBEN	Two	Yes	Yes	No	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	53	60	59	61	159
M	Complete primary	Complete Secundary	Operator	Home	It is not classified by the SISBEN	Six	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	44	48	54	54	161
M	Complete professional education	Complete professional education	Executive	Other occupation	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	81	69	75	71	179
M	Incomplete primary	Complete Secundary	Independent	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	ACADEMIC	52	47	56	58	138
F	Complete professional education	Complete Secundary	Small entrepreneur	Small entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	64	57	58	49	127
M	Incomplete Professional Education	Complete professional education	Independent	Other occupation	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	58	62	64	69	177
F	Complete Secundary	Complete Secundary	Operator	Home	Level 2	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	55	51	48	43	127
M	Incomplete Secundary	Incomplete Secundary	Independent	Home	Level 1	Six	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	Yes, less than 20 hours per week	PUBLIC	TECHNICAL/ACADEMIC	72	60	64	53	180
F	Complete Secundary	Complete primary	Other occupation	Independent	Level 1	Five	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	69	65	73	77	182
F	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	66	58	57	69	169
F	Complete Secundary	Incomplete technical or technological	Independent	Auxiliary or Administrative	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	87	72	71	81	135
F	Incomplete technical or technological	Complete technique or technology	Operator	Independent professional	Level 1	Six	Yes	Yes	No	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	64	61	67	67	181
F	Not sure	Not sure	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	67	61	71	64	179
F	Not sure	Not sure	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC	75	75	72	100	183
M	Incomplete technical or technological	Incomplete Secundary	Other occupation	Home	It is not classified by the SISBEN	Two	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	61	63	68	77	130
M	Ninguno	Complete Secundary	Other occupation	Auxiliary or Administrative	It is not classified by the SISBEN	Six	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	67	69	67	81	176
M	Complete professional education	Complete Secundary	Executive	Other occupation	Level 2	Five	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	ACADEMIC	58	57	63	53	107
M	Complete technique or technology	Complete technique or technology	Retired	Home	Level 2	Five	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	66	69	70	58	188
F	Complete professional education	Complete professional education	Independent professional	Small entrepreneur	It is not classified by the SISBEN	Seven	Yes	Yes	Yes	⋯	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC	53	69	59	52	146
M	Complete Secundary	Complete primary	Independent	Home	Level 1	Four	No	No	No	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	79	65	77	73	178

summary(filter_data)

 GENDER                              EDU_FATHER  
 F:5043   Complete professional education :3016  
 M:7368   Complete Secundary              :2843  
          Complete technique or technology:1194  
          Incomplete Secundary            :1091  
          Postgraduate education          :1085  
          Complete primary                : 824  
          (Other)                         :2358  
                            EDU_MOTHER  
 Complete Secundary              :3106  
 Complete professional education :3059  
 Complete technique or technology:1495  
 Incomplete Secundary            :1056  
 Postgraduate education          : 997  
 Complete primary                : 713  
 (Other)                         :1985  
                                    OCC_FATHER  
 Independent                             :2907  
 Technical or professional level employee:1803  
 Operator                                :1537  
 Other occupation                        :1087  
 Executive                               :1077  
 0                                       : 940  
 (Other)                                 :3060  
                                    OCC_MOTHER  
 Home                                    :4658  
 Technical or professional level employee:1795  
 Independent                             :1107  
 Auxiliary or Administrative             : 846  
 Executive                               : 794  
 Independent professional                : 715  
 (Other)                                 :2496  
                                       SISBEN      PEOPLE_HOUSE  INTERNET  
 0                                        :  21   Four   :4767   No :2659  
 Esta clasificada en otro Level del SISBEN:  96   Five   :2870   Yes:9752  
 It is not classified by the SISBEN       :7534   Three  :2345             
 Level 1                                  :2057   Six    :1090             
 Level 2                                  :2120   Two    : 592             
 Level 3                                  : 583   Seven  : 372             
                                                  (Other): 375             
   TV        COMPUTER    WASHING_MCH MIC_OVEN    CAR        DVD      
 No : 1842   No : 2237   No :4723    No :3841   No :6602   No :3089  
 Yes:10569   Yes:10174   Yes:7688    Yes:8570   Yes:5809   Yes:9322  
                                                                     
                                                                     
                                                                     
                                                                     
                                                                     
 PHONE       MOBILE                               REVENUE    
 No :  521   No :3564   Between 1 and less than 2 LMMW:3873  
 Yes:11890   Yes:8847   Between 2 and less than 3 LMMW:2783  
                        Between 3 and less than 5 LMMW:2239  
                        less than 1 LMMW              :1037  
                        Between 5 and less than 7 LMMW: 973  
                        10 or more LMMW               : 718  
                        (Other)                       : 788  
                               JOB          SCHOOL_NAT  
 0                               :  138   PRIVATE:6565  
 No                              :11909   PUBLIC :5846  
 Yes, 20 hours or more per week  :  134                 
 Yes, less than 20 hours per week:  230                 
                                                        
                                                        
                                                        
             SCHOOL_TYPE      MAT_S11           CR_S11          BIO_S11      
 ACADEMIC          :7834   Min.   : 26.00   Min.   : 24.00   Min.   : 11.00  
 Not apply         :   5   1st Qu.: 56.00   1st Qu.: 54.00   1st Qu.: 56.00  
 TECHNICAL         :1059   Median : 64.00   Median : 61.00   Median : 64.00  
 TECHNICAL/ACADEMIC:3513   Mean   : 64.32   Mean   : 60.78   Mean   : 63.95  
                           3rd Qu.: 72.00   3rd Qu.: 67.00   3rd Qu.: 71.00  
                           Max.   :100.00   Max.   :100.00   Max.   :100.00  
                                                                             
    ENG_S11           G_SC      
 Min.   : 26.0   Min.   : 37.0  
 1st Qu.: 50.0   1st Qu.:147.0  
 Median : 59.0   Median :163.0  
 Mean   : 61.8   Mean   :162.7  
 3rd Qu.: 72.0   3rd Qu.:179.0  
 Max.   :100.0   Max.   :247.0  
                                

cat_data <- sqldf('select GENDER, EDU_FATHER,EDU_MOTHER,OCC_FATHER,OCC_MOTHER,SISBEN,PEOPLE_HOUSE,INTERNET,TV,COMPUTER,WASHING_MCH,MIC_OVEN,CAR,DVD,PHONE,MOBILE,REVENUE,JOB,
                        SCHOOL_NAT,SCHOOL_TYPE from df')

cat_data

A data.frame: 12411 × 20

GENDER	EDU_FATHER	EDU_MOTHER	OCC_FATHER	OCC_MOTHER	SISBEN	PEOPLE_HOUSE	INTERNET	TV	COMPUTER	WASHING_MCH	MIC_OVEN	CAR	DVD	PHONE	MOBILE	REVENUE	JOB	SCHOOL_NAT	SCHOOL_TYPE
<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>
F	Incomplete Professional Education	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	Yes	No	No	Yes	Yes	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC
F	Complete Secundary	Complete professional education	Entrepreneur	Independent professional	It is not classified by the SISBEN	Three	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC
M	Not sure	Not sure	Independent	Home	Level 2	Five	No	No	Yes	Yes	No	No	Yes	Yes	No	Between 1 and less than 2 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC
F	Not sure	Not sure	Other occupation	Independent	It is not classified by the SISBEN	Three	Yes	Yes	Yes	Yes	Yes	No	Yes	Yes	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC
M	Complete professional education	Complete professional education	Executive	Home	It is not classified by the SISBEN	One	Yes	Yes	Yes	Yes	No	Yes	Yes	Yes	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC
F	Complete professional education	Complete professional education	Independent	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC
M	Complete professional education	Complete professional education	Small entrepreneur	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC
F	Incomplete Secundary	Complete Secundary	Entrepreneur	Independent professional	It is not classified by the SISBEN	Five	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	No	10 or more LMMW	No	PRIVATE	ACADEMIC
M	Complete Secundary	Complete professional education	Independent	Operator	It is not classified by the SISBEN	Three	Yes	Yes	Yes	Yes	No	No	Yes	Yes	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	TECHNICAL
M	Incomplete technical or technological	Incomplete technical or technological	Independent	Home	Level 2	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 2 and less than 3 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC
F	Not sure	Not sure	Other occupation	Independent professional	It is not classified by the SISBEN	Five	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC
M	Complete technique or technology	Complete Secundary	Technical or professional level employee	Entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 2 and less than 3 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC
F	Not sure	Incomplete technical or technological	Small entrepreneur	Home	It is not classified by the SISBEN	Five	No	Yes	Yes	Yes	No	No	Yes	Yes	No	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC
M	Complete professional education	Complete professional education	Entrepreneur	Small entrepreneur	It is not classified by the SISBEN	Six	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC
F	Incomplete primary	Incomplete primary	Small entrepreneur	Executive	Level 1	Two	No	No	No	No	No	No	No	Yes	No	less than 1 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC
F	Complete technique or technology	Not sure	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Two	Yes	Yes	Yes	Yes	Yes	No	Yes	Yes	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC
M	Complete professional education	Complete professional education	Small entrepreneur	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC
M	Complete professional education	Complete professional education	Independent professional	Independent professional	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC
M	Complete technique or technology	Complete Secundary	Operator	Independent	Level 2	Four	Yes	Yes	Yes	No	Yes	No	Yes	Yes	No	Between 1 and less than 2 LMMW	Yes, less than 20 hours per week	PRIVATE	ACADEMIC
M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	Esta clasificada en otro Level del SISBEN	Three	Yes	Yes	Yes	Yes	No	No	Yes	Yes	No	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC
M	Complete professional education	Complete professional education	Independent professional	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	Yes	No	Yes	Yes	Yes	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC
M	Incomplete primary	Incomplete Secundary	Independent	Home	It is not classified by the SISBEN	Four	Yes	No	Yes	No	No	No	No	Yes	Yes	less than 1 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC
M	Complete primary	Incomplete primary	Independent	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	No	Yes	Yes	Yes	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC
M	Incomplete primary	Incomplete primary	0	0	It is not classified by the SISBEN	Five	Yes	Yes	No	No	No	No	Yes	Yes	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC
M	Complete professional education	Incomplete Professional Education	Executive	Operator	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	No	Yes	Yes	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC
M	Complete technique or technology	Complete technique or technology	Executive	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	Yes	No	Yes	No	Yes	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC
M	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC
M	Postgraduate education	Complete professional education	Executive	Auxiliary or Administrative	It is not classified by the SISBEN	Five	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC
F	Complete Secundary	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC
F	Complete technique or technology	Complete technique or technology	Executive	Independent	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC
⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮
F	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC
F	Postgraduate education	Postgraduate education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC
M	Complete Secundary	Complete technique or technology	Other occupation	Other occupation	It is not classified by the SISBEN	Five	Yes	Yes	Yes	Yes	Yes	Yes	No	Yes	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC
F	Complete primary	Complete Secundary	Other occupation	Home	It is not classified by the SISBEN	Five	Yes	Yes	Yes	No	No	No	Yes	Yes	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC
M	Postgraduate education	Postgraduate education	Executive	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC
M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Five	Yes	Yes	Yes	No	No	Yes	No	Yes	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC
F	Complete Secundary	Complete Secundary	Other occupation	Other occupation	Level 2	Three	No	Yes	Yes	No	Yes	No	Yes	Yes	No	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC
F	Incomplete primary	Complete primary	Independent	Home	Level 1	Three	No	No	No	No	No	No	No	Yes	No	less than 1 LMMW	No	PUBLIC	TECHNICAL
F	Complete Secundary	Incomplete Secundary	Independent	Home	Level 1	Six	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	less than 1 LMMW	No	PUBLIC	ACADEMIC
F	Complete professional education	Complete Secundary	Operator	Retired	It is not classified by the SISBEN	Three	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC
F	Incomplete Professional Education	Complete technique or technology	Auxiliary or Administrative	Other occupation	It is not classified by the SISBEN	Two	Yes	Yes	No	No	Yes	No	No	Yes	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC
M	Complete primary	Complete Secundary	Operator	Home	It is not classified by the SISBEN	Six	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC
M	Complete professional education	Complete professional education	Executive	Other occupation	It is not classified by the SISBEN	Five	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	No	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC
M	Incomplete primary	Complete Secundary	Independent	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	No	No	Yes	Yes	Yes	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	ACADEMIC
F	Complete professional education	Complete Secundary	Small entrepreneur	Small entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC
M	Incomplete Professional Education	Complete professional education	Independent	Other occupation	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC
F	Complete Secundary	Complete Secundary	Operator	Home	Level 2	Three	Yes	Yes	Yes	Yes	Yes	No	Yes	Yes	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC
M	Incomplete Secundary	Incomplete Secundary	Independent	Home	Level 1	Six	Yes	Yes	Yes	No	Yes	No	No	Yes	Yes	Between 1 and less than 2 LMMW	Yes, less than 20 hours per week	PUBLIC	TECHNICAL/ACADEMIC
F	Complete Secundary	Complete primary	Other occupation	Independent	Level 1	Five	Yes	Yes	Yes	No	Yes	No	No	Yes	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC
F	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC
F	Complete Secundary	Incomplete technical or technological	Independent	Auxiliary or Administrative	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	No	Yes	Yes	Yes	Between 3 and less than 5 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC
F	Incomplete technical or technological	Complete technique or technology	Operator	Independent professional	Level 1	Six	Yes	Yes	No	No	Yes	No	Yes	Yes	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC
F	Not sure	Not sure	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	No	Yes	No	Yes	Yes	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC
F	Not sure	Not sure	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC
M	Incomplete technical or technological	Incomplete Secundary	Other occupation	Home	It is not classified by the SISBEN	Two	Yes	Yes	Yes	Yes	Yes	No	Yes	Yes	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC
M	Ninguno	Complete Secundary	Other occupation	Auxiliary or Administrative	It is not classified by the SISBEN	Six	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC
M	Complete professional education	Complete Secundary	Executive	Other occupation	Level 2	Five	Yes	Yes	Yes	Yes	Yes	No	Yes	Yes	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	ACADEMIC
M	Complete technique or technology	Complete technique or technology	Retired	Home	Level 2	Five	Yes	Yes	Yes	No	Yes	Yes	No	Yes	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC
F	Complete professional education	Complete professional education	Independent professional	Small entrepreneur	It is not classified by the SISBEN	Seven	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC
M	Complete Secundary	Complete primary	Independent	Home	Level 1	Four	No	No	No	No	No	No	No	Yes	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC

# Categorical data barcharts
bar_cat_plot_list <- list()
col_names <- colnames(cat_data)
for(i in col_names){
#     print(i)
    gg <- ggplot(cat_data, aes_string(x = i)) + geom_bar() + theme(axis.text.x = element_text(angle = 45, hjust = 1, size=5))
    bar_cat_plot_list[[i]] <- gg
} # end of loop

options(repr.plot.width = 16, repr.plot.height = 10)

plot_grid(plotlist = bar_cat_plot_list)

sqldf('select count(JOB) from cat_data where JOB == 0')

A data.frame: 1 × 1

count(JOB)
<int>
138

sqldf('select distinct(people_house) from cat_data')

A data.frame: 13 × 1

PEOPLE_HOUSE
<fct>
Three
Five
One
Four
Six
Two
Twelve or more
Nueve
Eight
Seven
Ten
Once
0

sqldf('select count(people_house) from cat_data where people_house == 0')

A data.frame: 1 × 1

count(people_house)
<int>
21

cont_data <- sqldf('select MAT_S11,CR_S11,BIO_S11,ENG_S11,CC_S11,G_SC from df')

describe(cont_data)

A psych: 6 × 13

	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<int>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
MAT_S11	1	12411	64.32076	11.87365	64	63.83624	11.8608	26	100	74	0.39946028	0.12886390	0.10658126
CR_S11	2	12411	60.77842	10.02588	61	60.62846	10.3782	24	100	76	0.21419352	0.47665834	0.08999511
BIO_S11	3	12411	63.95053	11.15687	64	63.64568	10.3782	11	100	89	0.30329883	0.29791111	0.10014723
ENG_S11	4	12411	61.80106	14.29778	59	60.76866	14.8260	26	100	74	0.60676163	-0.37157362	0.12834091
CC_S11	5	12411	60.70518	10.12052	60	60.42814	10.3782	0	100	100	0.34706837	0.75443026	0.09084470
G_SC	6	12411	162.71050	23.11248	163	162.93947	23.7216	37	247	210	-0.09539073	-0.07629832	0.20746419

sqldf('select count(MAT_S11) from cont_data where MAT_S11 is null')
sqldf('select count(CR_S11) from cont_data where CR_S11 is null')
sqldf('select count(BIO_S11) from cont_data where BIO_S11 is null')
sqldf('select count(ENG_S11) from cont_data where ENG_S11 is null')
sqldf('select count(G_SC) from cont_data where G_SC is null')

A data.frame: 1 × 1

count(MAT_S11)
<int>
0

A data.frame: 1 × 1

count(CR_S11)
<int>
0

A data.frame: 1 × 1

count(BIO_S11)
<int>
0

A data.frame: 1 × 1

count(ENG_S11)
<int>
0

A data.frame: 1 × 1

count(G_SC)
<int>
0

col_names <- colnames(cont_data)
col_names

1. 'MAT_S11'
2. 'CR_S11'
3. 'BIO_S11'
4. 'ENG_S11'
5. 'G_SC'

# hold all the plots created in the loop
plot_list <- list()
col_names <- colnames(cont_data)
for(i in col_names){
    print(i)
    print(mean(cont_data[,i]))
    gg <- ggplot(cont_data , aes_string(i))  
    gg <- gg + geom_histogram(binwidth=1, colour="black", aes(y=..density.., fill=..count..))
    gg<-gg+scale_fill_gradient("Count", low="#DCDCDC", high="#7C7C7C")
    gg<-gg+stat_function(fun=dnorm, color="red",args=list(mean=mean(cont_data[,i], na.rm=TRUE), sd=sd(cont_data[,i], na.rm=TRUE)))
    plot_list[[i]] <- gg
} # end of loop

[1] "MAT_S11"
[1] 64.32076
[1] "CR_S11"
[1] 60.77842
[1] "BIO_S11"
[1] 63.95053
[1] "ENG_S11"
[1] 61.80106
[1] "CC_S11"
[1] 60.70518
[1] "G_SC"
[1] 162.7105

plot_grid(plotlist = plot_list)

# hold all theplots created in the loop
box_plot_list <- list()
for(i in col_names){
    print(i)
    gg <- ggplot(cont_data, aes_string(y=i)) + geom_boxplot() + theme(text = element_text(size=20))
    box_plot_list[[i]] <- gg
} # end of loop

[1] "MAT_S11"
[1] "CR_S11"
[1] "BIO_S11"
[1] "ENG_S11"
[1] "CC_S11"
[1] "G_SC"

plot_grid(plotlist = box_plot_list)

# make sure to remove missing values and outliers

head(cont_data)

A data.frame: 6 × 5

	MAT_S11	CR_S11	BIO_S11	ENG_S11	G_SC
	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
1	71	81	86	82	180
2	83	75	100	88	182
3	52	49	46	42	113
4	56	55	64	73	157
5	80	65	85	92	198
6	71	60	61	82	154

# qq plot for each numerical data above
qqnorm(cont_data$MAT_S11 ,main='MAT_S11')+qqline(cont_data$MAT_S11, col=2) #show a line on theplot

Error in qqnorm(cont_data$MAT_S11, main = "MAT_S11") + qqline(cont_data$MAT_S11, : non-numeric argument to binary operator
Traceback:

qqnorm(cont_data$CR_S11 ,main='CR_S11')+qqline(cont_data$CR_S11, col=2) #show a line on theplot

Error in qqnorm(cont_data$CR_S11, main = "CR_S11") + qqline(cont_data$CR_S11, : non-numeric argument to binary operator
Traceback:

qqnorm(cont_data$BIO_S11 ,main='BIO_S11')+qqline(cont_data$BIO_S11, col=2) #show a line on theplot

Error in qqnorm(cont_data$BIO_S11, main = "BIO_S11") + qqline(cont_data$BIO_S11, : non-numeric argument to binary operator
Traceback:

qqnorm(cont_data$ENG_S11 ,main='ENG_S11')+qqline(cont_data$ENG_S11, col=2) #show a line on theplot

Error in qqnorm(cont_data$ENG_S11, main = "ENG_S11") + qqline(cont_data$ENG_S11, : non-numeric argument to binary operator
Traceback:

qqnorm(cont_data$CC_S11 ,main='CC_S11')+qqline(cont_data$CC_S11, col=2) #show a line on theplot

Error in qqnorm(cont_data$CC_S11, main = "CC_S11") + qqline(cont_data$CC_S11, : non-numeric argument to binary operator
Traceback:

qqnorm(cont_data$G_SC ,main='G_SC')+qqline(cont_data$G_SC, col=2) #show a line on theplot

Error in qqnorm(cont_data$G_SC, main = "G_SC") + qqline(cont_data$G_SC, : non-numeric argument to binary operator
Traceback:

# removig data that is NA,using complete.cases in case i missed finding data with Null values
head(filter_data)

A data.frame: 6 × 25

	GENDER	EDU_FATHER	EDU_MOTHER	OCC_FATHER	OCC_MOTHER	SISBEN	PEOPLE_HOUSE	INTERNET	TV	COMPUTER	⋯	MOBILE	REVENUE	JOB	SCHOOL_NAT	SCHOOL_TYPE	MAT_S11	CR_S11	BIO_S11	ENG_S11	G_SC
	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	⋯	<fct>	<fct>	<fct>	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
1	F	Incomplete Professional Education	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	71	81	86	82	180
2	F	Complete Secundary	Complete professional education	Entrepreneur	Independent professional	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	83	75	100	88	182
3	M	Not sure	Not sure	Independent	Home	Level 2	Five	No	No	Yes	⋯	No	Between 1 and less than 2 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	52	49	46	42	113
4	F	Not sure	Not sure	Other occupation	Independent	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	56	55	64	73	157
5	M	Complete professional education	Complete professional education	Executive	Home	It is not classified by the SISBEN	One	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	80	65	85	92	198
6	F	Complete professional education	Complete professional education	Independent	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	71	60	61	82	154

filter_data<-filter_data[complete.cases(filter_data),]

filter_data

A data.frame: 12411 × 25

	GENDER	EDU_FATHER	EDU_MOTHER	OCC_FATHER	OCC_MOTHER	SISBEN	PEOPLE_HOUSE	INTERNET	TV	COMPUTER	⋯	MOBILE	REVENUE	JOB	SCHOOL_NAT	SCHOOL_TYPE	MAT_S11	CR_S11	BIO_S11	ENG_S11	G_SC
	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	⋯	<fct>	<fct>	<fct>	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
1	F	Incomplete Professional Education	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	71	81	86	82	180
2	F	Complete Secundary	Complete professional education	Entrepreneur	Independent professional	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	83	75	100	88	182
3	M	Not sure	Not sure	Independent	Home	Level 2	Five	No	No	Yes	⋯	No	Between 1 and less than 2 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	52	49	46	42	113
4	F	Not sure	Not sure	Other occupation	Independent	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	56	55	64	73	157
5	M	Complete professional education	Complete professional education	Executive	Home	It is not classified by the SISBEN	One	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	80	65	85	92	198
6	F	Complete professional education	Complete professional education	Independent	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	71	60	61	82	154
7	M	Complete professional education	Complete professional education	Small entrepreneur	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	71	75	75	85	152
8	F	Incomplete Secundary	Complete Secundary	Entrepreneur	Independent professional	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	10 or more LMMW	No	PRIVATE	ACADEMIC	74	67	85	96	200
9	M	Complete Secundary	Complete professional education	Independent	Operator	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	TECHNICAL	44	54	44	46	133
10	M	Incomplete technical or technological	Incomplete technical or technological	Independent	Home	Level 2	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	52	55	55	65	126
11	F	Not sure	Not sure	Other occupation	Independent professional	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	74	71	78	96	200
12	M	Complete technique or technology	Complete Secundary	Technical or professional level employee	Entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	54	47	45	43	133
13	F	Not sure	Incomplete technical or technological	Small entrepreneur	Home	It is not classified by the SISBEN	Five	No	Yes	Yes	⋯	No	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	56	62	61	50	148
14	M	Complete professional education	Complete professional education	Entrepreneur	Small entrepreneur	It is not classified by the SISBEN	Six	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	76	71	75	82	191
15	F	Incomplete primary	Incomplete primary	Small entrepreneur	Executive	Level 1	Two	No	No	No	⋯	No	less than 1 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	56	45	51	44	157
16	F	Complete technique or technology	Not sure	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Two	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	62	58	55	59	164
17	M	Complete professional education	Complete professional education	Small entrepreneur	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	74	67	78	68	162
18	M	Complete professional education	Complete professional education	Independent professional	Independent professional	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	74	64	72	88	188
19	M	Complete technique or technology	Complete Secundary	Operator	Independent	Level 2	Four	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	Yes, less than 20 hours per week	PRIVATE	ACADEMIC	44	49	44	44	129
20	M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	Esta clasificada en otro Level del SISBEN	Three	Yes	Yes	Yes	⋯	No	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	61	44	41	53	170
21	M	Complete professional education	Complete professional education	Independent professional	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	58	53	48	58	170
22	M	Incomplete primary	Incomplete Secundary	Independent	Home	It is not classified by the SISBEN	Four	Yes	No	Yes	⋯	Yes	less than 1 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	60	47	56	57	144
23	M	Complete primary	Incomplete primary	Independent	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	53	47	36	64	138
24	M	Incomplete primary	Incomplete primary	0	0	It is not classified by the SISBEN	Five	Yes	Yes	No	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	67	65	72	82	164
25	M	Complete professional education	Incomplete Professional Education	Executive	Operator	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	80	71	66	75	194
26	M	Complete technique or technology	Complete technique or technology	Executive	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	83	75	100	71	201
27	M	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	69	56	63	70	155
28	M	Postgraduate education	Complete professional education	Executive	Auxiliary or Administrative	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	85	71	72	92	180
29	F	Complete Secundary	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	48	56	51	54	137
30	F	Complete technique or technology	Complete technique or technology	Executive	Independent	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	48	44	61	48	161
⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋱	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮
12382	F	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	67	72	75	62	179
12383	F	Postgraduate education	Postgraduate education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	74	72	70	100	215
12384	M	Complete Secundary	Complete technique or technology	Other occupation	Other occupation	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	61	57	61	52	154
12385	F	Complete primary	Complete Secundary	Other occupation	Home	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	52	67	61	53	168
12386	M	Postgraduate education	Postgraduate education	Executive	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	87	72	74	88	194
12387	M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC	85	72	81	65	209
12388	F	Complete Secundary	Complete Secundary	Other occupation	Other occupation	Level 2	Three	No	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	55	55	63	58	171
12389	F	Incomplete primary	Complete primary	Independent	Home	Level 1	Three	No	No	No	⋯	No	less than 1 LMMW	No	PUBLIC	TECHNICAL	69	67	73	59	183
12390	F	Complete Secundary	Incomplete Secundary	Independent	Home	Level 1	Six	Yes	Yes	Yes	⋯	Yes	less than 1 LMMW	No	PUBLIC	ACADEMIC	63	63	72	61	161
12391	F	Complete professional education	Complete Secundary	Operator	Retired	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	66	60	58	51	166
12392	F	Incomplete Professional Education	Complete technique or technology	Auxiliary or Administrative	Other occupation	It is not classified by the SISBEN	Two	Yes	Yes	No	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	53	60	59	61	159
12393	M	Complete primary	Complete Secundary	Operator	Home	It is not classified by the SISBEN	Six	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	44	48	54	54	161
12394	M	Complete professional education	Complete professional education	Executive	Other occupation	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	81	69	75	71	179
12395	M	Incomplete primary	Complete Secundary	Independent	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	ACADEMIC	52	47	56	58	138
12396	F	Complete professional education	Complete Secundary	Small entrepreneur	Small entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	64	57	58	49	127
12397	M	Incomplete Professional Education	Complete professional education	Independent	Other occupation	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	58	62	64	69	177
12398	F	Complete Secundary	Complete Secundary	Operator	Home	Level 2	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	55	51	48	43	127
12399	M	Incomplete Secundary	Incomplete Secundary	Independent	Home	Level 1	Six	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	Yes, less than 20 hours per week	PUBLIC	TECHNICAL/ACADEMIC	72	60	64	53	180
12400	F	Complete Secundary	Complete primary	Other occupation	Independent	Level 1	Five	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	69	65	73	77	182
12401	F	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	66	58	57	69	169
12402	F	Complete Secundary	Incomplete technical or technological	Independent	Auxiliary or Administrative	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	87	72	71	81	135
12403	F	Incomplete technical or technological	Complete technique or technology	Operator	Independent professional	Level 1	Six	Yes	Yes	No	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	64	61	67	67	181
12404	F	Not sure	Not sure	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	67	61	71	64	179
12405	F	Not sure	Not sure	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC	75	75	72	100	183
12406	M	Incomplete technical or technological	Incomplete Secundary	Other occupation	Home	It is not classified by the SISBEN	Two	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	61	63	68	77	130
12407	M	Ninguno	Complete Secundary	Other occupation	Auxiliary or Administrative	It is not classified by the SISBEN	Six	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	67	69	67	81	176
12408	M	Complete professional education	Complete Secundary	Executive	Other occupation	Level 2	Five	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	ACADEMIC	58	57	63	53	107
12409	M	Complete technique or technology	Complete technique or technology	Retired	Home	Level 2	Five	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	66	69	70	58	188
12410	F	Complete professional education	Complete professional education	Independent professional	Small entrepreneur	It is not classified by the SISBEN	Seven	Yes	Yes	Yes	⋯	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC	53	69	59	52	146
12411	M	Complete Secundary	Complete primary	Independent	Home	Level 1	Four	No	No	No	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	79	65	77	73	178

handling missing value

# Remove the missing values in Job and people_house
clean_data <- filter_data

# clean_data <- clean_data[!(clean_data$JOB == "0"),]

# clean_data <- clean_data[!(clean_data$PEOPLE_HOUSE == "0"),]

# clean_data <- clean_data[!(clean_data$EDU_FATHER == "0"),]

clean_data

A data.frame: 12411 × 25

	GENDER	EDU_FATHER	EDU_MOTHER	OCC_FATHER	OCC_MOTHER	SISBEN	PEOPLE_HOUSE	INTERNET	TV	COMPUTER	⋯	MOBILE	REVENUE	JOB	SCHOOL_NAT	SCHOOL_TYPE	MAT_S11	CR_S11	BIO_S11	ENG_S11	G_SC
	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	⋯	<fct>	<fct>	<fct>	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
1	F	Incomplete Professional Education	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	71	81	86	82	180
2	F	Complete Secundary	Complete professional education	Entrepreneur	Independent professional	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	83	75	100	88	182
3	M	Not sure	Not sure	Independent	Home	Level 2	Five	No	No	Yes	⋯	No	Between 1 and less than 2 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	52	49	46	42	113
4	F	Not sure	Not sure	Other occupation	Independent	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	56	55	64	73	157
5	M	Complete professional education	Complete professional education	Executive	Home	It is not classified by the SISBEN	One	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	80	65	85	92	198
6	F	Complete professional education	Complete professional education	Independent	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	71	60	61	82	154
7	M	Complete professional education	Complete professional education	Small entrepreneur	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	71	75	75	85	152
8	F	Incomplete Secundary	Complete Secundary	Entrepreneur	Independent professional	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	10 or more LMMW	No	PRIVATE	ACADEMIC	74	67	85	96	200
9	M	Complete Secundary	Complete professional education	Independent	Operator	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	TECHNICAL	44	54	44	46	133
10	M	Incomplete technical or technological	Incomplete technical or technological	Independent	Home	Level 2	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	52	55	55	65	126
11	F	Not sure	Not sure	Other occupation	Independent professional	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	74	71	78	96	200
12	M	Complete technique or technology	Complete Secundary	Technical or professional level employee	Entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	54	47	45	43	133
13	F	Not sure	Incomplete technical or technological	Small entrepreneur	Home	It is not classified by the SISBEN	Five	No	Yes	Yes	⋯	No	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	56	62	61	50	148
14	M	Complete professional education	Complete professional education	Entrepreneur	Small entrepreneur	It is not classified by the SISBEN	Six	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	76	71	75	82	191
15	F	Incomplete primary	Incomplete primary	Small entrepreneur	Executive	Level 1	Two	No	No	No	⋯	No	less than 1 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	56	45	51	44	157
16	F	Complete technique or technology	Not sure	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Two	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	62	58	55	59	164
17	M	Complete professional education	Complete professional education	Small entrepreneur	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	74	67	78	68	162
18	M	Complete professional education	Complete professional education	Independent professional	Independent professional	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	74	64	72	88	188
19	M	Complete technique or technology	Complete Secundary	Operator	Independent	Level 2	Four	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	Yes, less than 20 hours per week	PRIVATE	ACADEMIC	44	49	44	44	129
20	M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	Esta clasificada en otro Level del SISBEN	Three	Yes	Yes	Yes	⋯	No	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	61	44	41	53	170
21	M	Complete professional education	Complete professional education	Independent professional	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	58	53	48	58	170
22	M	Incomplete primary	Incomplete Secundary	Independent	Home	It is not classified by the SISBEN	Four	Yes	No	Yes	⋯	Yes	less than 1 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	60	47	56	57	144
23	M	Complete primary	Incomplete primary	Independent	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	53	47	36	64	138
24	M	Incomplete primary	Incomplete primary	0	0	It is not classified by the SISBEN	Five	Yes	Yes	No	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	67	65	72	82	164
25	M	Complete professional education	Incomplete Professional Education	Executive	Operator	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	80	71	66	75	194
26	M	Complete technique or technology	Complete technique or technology	Executive	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	83	75	100	71	201
27	M	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	69	56	63	70	155
28	M	Postgraduate education	Complete professional education	Executive	Auxiliary or Administrative	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	85	71	72	92	180
29	F	Complete Secundary	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	48	56	51	54	137
30	F	Complete technique or technology	Complete technique or technology	Executive	Independent	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	48	44	61	48	161
⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋱	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮
12382	F	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	67	72	75	62	179
12383	F	Postgraduate education	Postgraduate education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	74	72	70	100	215
12384	M	Complete Secundary	Complete technique or technology	Other occupation	Other occupation	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	61	57	61	52	154
12385	F	Complete primary	Complete Secundary	Other occupation	Home	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	52	67	61	53	168
12386	M	Postgraduate education	Postgraduate education	Executive	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	87	72	74	88	194
12387	M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC	85	72	81	65	209
12388	F	Complete Secundary	Complete Secundary	Other occupation	Other occupation	Level 2	Three	No	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	55	55	63	58	171
12389	F	Incomplete primary	Complete primary	Independent	Home	Level 1	Three	No	No	No	⋯	No	less than 1 LMMW	No	PUBLIC	TECHNICAL	69	67	73	59	183
12390	F	Complete Secundary	Incomplete Secundary	Independent	Home	Level 1	Six	Yes	Yes	Yes	⋯	Yes	less than 1 LMMW	No	PUBLIC	ACADEMIC	63	63	72	61	161
12391	F	Complete professional education	Complete Secundary	Operator	Retired	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	66	60	58	51	166
12392	F	Incomplete Professional Education	Complete technique or technology	Auxiliary or Administrative	Other occupation	It is not classified by the SISBEN	Two	Yes	Yes	No	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	53	60	59	61	159
12393	M	Complete primary	Complete Secundary	Operator	Home	It is not classified by the SISBEN	Six	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	44	48	54	54	161
12394	M	Complete professional education	Complete professional education	Executive	Other occupation	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	81	69	75	71	179
12395	M	Incomplete primary	Complete Secundary	Independent	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	ACADEMIC	52	47	56	58	138
12396	F	Complete professional education	Complete Secundary	Small entrepreneur	Small entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	64	57	58	49	127
12397	M	Incomplete Professional Education	Complete professional education	Independent	Other occupation	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	58	62	64	69	177
12398	F	Complete Secundary	Complete Secundary	Operator	Home	Level 2	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	55	51	48	43	127
12399	M	Incomplete Secundary	Incomplete Secundary	Independent	Home	Level 1	Six	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	Yes, less than 20 hours per week	PUBLIC	TECHNICAL/ACADEMIC	72	60	64	53	180
12400	F	Complete Secundary	Complete primary	Other occupation	Independent	Level 1	Five	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	69	65	73	77	182
12401	F	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	66	58	57	69	169
12402	F	Complete Secundary	Incomplete technical or technological	Independent	Auxiliary or Administrative	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	87	72	71	81	135
12403	F	Incomplete technical or technological	Complete technique or technology	Operator	Independent professional	Level 1	Six	Yes	Yes	No	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	64	61	67	67	181
12404	F	Not sure	Not sure	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	67	61	71	64	179
12405	F	Not sure	Not sure	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC	75	75	72	100	183
12406	M	Incomplete technical or technological	Incomplete Secundary	Other occupation	Home	It is not classified by the SISBEN	Two	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	61	63	68	77	130
12407	M	Ninguno	Complete Secundary	Other occupation	Auxiliary or Administrative	It is not classified by the SISBEN	Six	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	67	69	67	81	176
12408	M	Complete professional education	Complete Secundary	Executive	Other occupation	Level 2	Five	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	ACADEMIC	58	57	63	53	107
12409	M	Complete technique or technology	Complete technique or technology	Retired	Home	Level 2	Five	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	66	69	70	58	188
12410	F	Complete professional education	Complete professional education	Independent professional	Small entrepreneur	It is not classified by the SISBEN	Seven	Yes	Yes	Yes	⋯	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC	53	69	59	52	146
12411	M	Complete Secundary	Complete primary	Independent	Home	Level 1	Four	No	No	No	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	79	65	77	73	178

head(clean_data)

A data.frame: 6 × 25

	GENDER	EDU_FATHER	EDU_MOTHER	OCC_FATHER	OCC_MOTHER	SISBEN	PEOPLE_HOUSE	INTERNET	TV	COMPUTER	⋯	MOBILE	REVENUE	JOB	SCHOOL_NAT	SCHOOL_TYPE	MAT_S11	CR_S11	BIO_S11	ENG_S11	G_SC
	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	⋯	<fct>	<fct>	<fct>	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
1	F	Incomplete Professional Education	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	71	81	86	82	180
2	F	Complete Secundary	Complete professional education	Entrepreneur	Independent professional	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	83	75	100	88	182
3	M	Not sure	Not sure	Independent	Home	Level 2	Five	No	No	Yes	⋯	No	Between 1 and less than 2 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	52	49	46	42	113
4	F	Not sure	Not sure	Other occupation	Independent	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	56	55	64	73	157
5	M	Complete professional education	Complete professional education	Executive	Home	It is not classified by the SISBEN	One	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	80	65	85	92	198
6	F	Complete professional education	Complete professional education	Independent	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	71	60	61	82	154

library('dvmisc')

Loading required package: rbenchmark


Attaching package: ‘dvmisc’


The following object is masked from ‘package:userfriendlyscience’:

    trim


The following object is masked from ‘package:tidyr’:

    expand_grid


The following object is masked from ‘package:psych’:

    headtail

# Getting Kurtosis and skew values of Maths, also standardised score:
math_skew <- semTools::skew(clean_data$MAT_S11)
math_kurt <- semTools::kurtosis(clean_data$MAT_S11)

# standardise the values
math_skew[1]/math_skew[2]
math_kurt[1]/math_kurt[2]

math_score_range<- abs(scale(clean_data$MAT_S11))

FSA::perc(as.numeric(math_score_range), 1.96, "gt")
FSA::perc(as.numeric(math_score_range), 3.29, "gt") #0%

skew (g1): 18.1721515462378

Excess Kur (g2): 2.95406439579392

4.4476674

0

y <- trim(clean_data$MAT_S11, p = 0.05)

# Getting Kurtosis and skew values of Maths, also standardised score:
math_skew <- semTools::skew(y)
math_kurt <- semTools::kurtosis(y)

# standardise the values
math_skew[1]/math_skew[2]
math_kurt[1]/math_kurt[2]

math_score_range<- abs(scale(y))

FSA::perc(as.numeric(math_score_range), 1.96, "gt")
FSA::perc(as.numeric(math_score_range), 3.29, "gt") #0%

skew (g1): 10.6181438200226

Excess Kur (g2): -16.2634188327499

2.4359996

0

y <- trim(clean_data_v2$MAT_S11, p = 0.05)

# Getting Kurtosis and skew values of Maths, also standardised score:
math_skew <- semTools::skew(clean_data_v2$MAT_S11)
math_kurt <- semTools::kurtosis(clean_data_v2$MAT_S11)

# standardise the values
math_skew[1]/math_skew[2]
math_kurt[1]/math_kurt[2]

math_score_range<- abs(scale(clean_data_v2$MAT_S11))

FSA::perc(as.numeric(math_score_range), 1.96, "gt")
FSA::perc(as.numeric(math_score_range), 3.29, "gt") #0%

skew (g1): 8.38309609244338

Excess Kur (g2): -15.7160170291162

3.5207621

0

# Getting Kurtosis and skew values of Maths, also standardised score:
math_skew <- semTools::skew(clean_data$MAT_S11)
math_kurt <- semTools::kurtosis(clean_data$MAT_S11)

# standardise the values
math_skew[1]/math_skew[2]
math_kurt[1]/math_kurt[2]

math_score_range<- abs(scale(clean_data$MAT_S11))

FSA::perc(as.numeric(math_score_range), 1.96, "gt")
FSA::perc(as.numeric(math_score_range), 3.29, "gt") #0%

skew (g1): 18.1721515462378

Excess Kur (g2): 2.95406439579392

4.4476674

0

# Getting Kurtosis and skew values of Critical reading, also standardised score:
reading_skew <- semTools::skew(clean_data$CR_S11)
reading_kurt <- semTools::kurtosis(clean_data$CR_S11)

# standardise the values
reading_skew[1]/reading_skew[2]
reading_kurt[1]/reading_kurt[2]

reading_score_range<- abs(scale(clean_data$CR_S11))

FSA::perc(as.numeric(reading_score_range), 1.96, "gt")
FSA::perc(as.numeric(reading_score_range), 3.29, "gt") #0%

skew (g1): 9.74404017104087

Excess Kur (g2): 10.8675055006598

5.575699

0.3786963

# Getting Kurtosis and skew values of Critical reading, also standardised score:
# This time removing outliers
reading_skew <- semTools::skew(clean_data_v2$CR_S11)
reading_kurt <- semTools::kurtosis(clean_data_v2$CR_S11)

# standardise the values
reading_skew[1]/reading_skew[2]
reading_kurt[1]/reading_kurt[2]

reading_score_range<- abs(scale(clean_data_v2$CR_S11))

FSA::perc(as.numeric(reading_score_range), 1.96, "gt")
FSA::perc(as.numeric(reading_score_range), 3.29, "gt") #0%

skew (g1): 2.1736629162309

Excess Kur (g2): -2.60137054394747

5.0638902

0

y <- trim(clean_data$CR_S11, p = 0.05)

# Getting Kurtosis and skew values of Critical reading, also standardised score:
reading_skew <- semTools::skew(y)
reading_kurt <- semTools::kurtosis(y)

# standardise the values
reading_skew[1]/reading_skew[2]
reading_kurt[1]/reading_kurt[2]

reading_score_range<- abs(scale(y))

FSA::perc(as.numeric(reading_score_range), 1.96, "gt")
FSA::perc(as.numeric(reading_score_range), 3.29, "gt") #0%

skew (g1): 2.55007222161434

Excess Kur (g2): -16.2172305914377

3.5597273

0

# Getting Kurtosis and skew values of Biology, also standardised score:
biology_skew <- semTools::skew(clean_data$BIO_S11)
biology_kurt <- semTools::kurtosis(clean_data$BIO_S11)

# standardise the values
biology_skew[1]/biology_skew[2]
biology_kurt[1]/biology_kurt[2]

biology_score_range<- abs(scale(clean_data$BIO_S11))

FSA::perc(as.numeric(biology_score_range), 1.96, "gt")
FSA::perc(as.numeric(biology_score_range), 3.29, "gt") #0%

skew (g1): 13.7975977074928

Excess Kur (g2): 6.80043166277546

5.5595842

0.0322295

y <- trim(clean_data$BIO_S11, p = 0.05)

# Getting Kurtosis and skew values of Biology, also standardised score:
biology_skew <- semTools::skew(y)
biology_kurt <- semTools::kurtosis(y)

# standardise the values
biology_skew[1]/biology_skew[2]
biology_kurt[1]/biology_kurt[2]

biology_score_range<- abs(scale(y))

FSA::perc(as.numeric(biology_score_range), 1.96, "gt")
FSA::perc(as.numeric(biology_score_range), 3.29, "gt") #0%

skew (g1): 3.12243143041013

Excess Kur (g2): -16.0054484611865

4.7985154

0

# Getting Kurtosis and skew values of English, also standardised score:
english_skew <- semTools::skew(clean_data$ENG_S11)
english_kurt <- semTools::kurtosis(clean_data$ENG_S11)

# standardise the values
english_skew[1]/english_skew[2]
english_kurt[1]/english_kurt[2]

english_score_range<- abs(scale(clean_data$ENG_S11))

FSA::perc(as.numeric(english_score_range), 1.96, "gt")
FSA::perc(as.numeric(english_score_range), 3.29, "gt") #0%

skew (g1): 27.6026548100382

Excess Kur (g2): -8.43249709316762

5.6482153

0

y <- trim(clean_data$ENG_S11, p = 0.05)

# Getting Kurtosis and skew values of English, also standardised score:
english_skew <- semTools::skew(y)
english_kurt <- semTools::kurtosis(y)

# standardise the values
english_skew[1]/english_skew[2]
english_kurt[1]/english_kurt[2]

english_score_range<- abs(scale(y))

FSA::perc(as.numeric(english_score_range), 1.96, "gt")
FSA::perc(as.numeric(english_score_range), 3.29, "gt") #0%

skew (g1): 22.8135182214382

Excess Kur (g2): -15.9687117224631

3.1140658

0

# Getting Kurtosis and skew values of Global score, also standardised score:
global_skew <- semTools::skew(clean_data$G_SC)
global_kurt <- semTools::kurtosis(clean_data$G_SC)

# standardise the values
global_skew[1]/global_skew[2]
global_kurt[1]/global_kurt[2]

global_score_range<- abs(scale(clean_data$G_SC))

FSA::perc(as.numeric(global_score_range), 1.96, "gt")
FSA::perc(as.numeric(global_score_range), 3.29, "gt") #0%

skew (g1): -4.33949212854718

Excess Kur (g2): -1.71403541529758

4.0609137

0.15309

y <- trim(clean_data$G_SC, p = 0.05)

# Getting Kurtosis and skew values of Global score, also standardised score:
global_skew <- semTools::skew(y)
global_kurt <- semTools::kurtosis(y)

# standardise the values
global_skew[1]/global_skew[2]
global_kurt[1]/global_kurt[2]

global_score_range<- abs(scale(y))

FSA::perc(as.numeric(global_score_range), 1.96, "gt")
FSA::perc(as.numeric(global_score_range), 3.29, "gt") #0%

skew (g1): -2.24889583087043

Excess Kur (g2): -19.7969412862748

1.0980182

0

sd(clean_data$MAT_S11)

11.8736500200764

Correlation tests and pearsons test

#Scatterplot relationship, G_SC and MAT_S11
scatter <- ggplot(clean_data, aes(clean_data$MAT_S11, clean_data$G_SC))

#Add a regression line
scatter + geom_point() + geom_smooth(method = "lm", colour = "Red", se = F) + labs(x = "Maths scores(MAT_S11)", y = "Global score(G_SC)")

Warning message:
“Use of `clean_data$MAT_S11` is discouraged. Use `MAT_S11` instead.”
Warning message:
“Use of `clean_data$G_SC` is discouraged. Use `G_SC` instead.”
Warning message:
“Use of `clean_data$MAT_S11` is discouraged. Use `MAT_S11` instead.”
Warning message:
“Use of `clean_data$G_SC` is discouraged. Use `G_SC` instead.”
`geom_smooth()` using formula 'y ~ x'

# Pearson Maths
stats::cor.test(clean_data$G_SC, clean_data$MAT_S11, method='pearson')

	Pearson's product-moment correlation

data:  clean_data$G_SC and clean_data$MAT_S11
t = 93.733, df = 12409, p-value < 2.2e-16
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
 0.6334194 0.6540231
sample estimates:
      cor 
0.6438379 

#Scatterplot relationship, G_SC and CR_S11
scatter <- ggplot(clean_data, aes(clean_data$CR_S11, clean_data$G_SC))

#Add a regression line
scatter + geom_point() + geom_smooth(method = "lm", colour = "Red", se = F) + labs(x = "Creative Reading scores(CR_S11)", y = "Global score(G_SC)")

Warning message:
“Use of `clean_data$CR_S11` is discouraged. Use `CR_S11` instead.”
Warning message:
“Use of `clean_data$G_SC` is discouraged. Use `G_SC` instead.”
Warning message:
“Use of `clean_data$CR_S11` is discouraged. Use `CR_S11` instead.”
Warning message:
“Use of `clean_data$G_SC` is discouraged. Use `G_SC` instead.”
`geom_smooth()` using formula 'y ~ x'

# Pearson test Creative reading
stats::cor.test(clean_data$G_SC, clean_data$CR_S11, method='pearson')
# statistically significant result

	Pearson's product-moment correlation

data:  clean_data$G_SC and clean_data$CR_S11
t = 96.193, df = 12409, p-value < 2.2e-16
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
 0.6433767 0.6635360
sample estimates:
      cor 
0.6535722 

#Scatterplot relationship, G_SC and BIO_S11
scatter <- ggplot(clean_data, aes(clean_data$BIO_S11, clean_data$G_SC))

#Add a regression line
scatter + geom_point() + geom_smooth(method = "lm", colour = "Red", se = F) + labs(x = "Biology scores(BIO_S11)", y = "Global score(G_SC)")

Warning message:
“Use of `clean_data$BIO_S11` is discouraged. Use `BIO_S11` instead.”
Warning message:
“Use of `clean_data$G_SC` is discouraged. Use `G_SC` instead.”
Warning message:
“Use of `clean_data$BIO_S11` is discouraged. Use `BIO_S11` instead.”
Warning message:
“Use of `clean_data$G_SC` is discouraged. Use `G_SC` instead.”
`geom_smooth()` using formula 'y ~ x'

# Pearson test Biology
stats::cor.test(clean_data$G_SC, clean_data$BIO_S11, method='pearson')

	Pearson's product-moment correlation

data:  clean_data$G_SC and clean_data$BIO_S11
t = 99.627, df = 12409, p-value < 2.2e-16
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
 0.6567441 0.6762966
sample estimates:
     cor 
0.666635 

#Scatterplot relationship, G_SC and ENG_S11
scatter <- ggplot(clean_data, aes(clean_data$ENG_S11, clean_data$G_SC))

#Add a regression line
scatter + geom_point() + geom_smooth(method = "lm", colour = "Red", se = F) + labs(x = "English(ENG_S11)", y = "Global score(G_SC)")

Warning message:
“Use of `clean_data$ENG_S11` is discouraged. Use `ENG_S11` instead.”
Warning message:
“Use of `clean_data$G_SC` is discouraged. Use `G_SC` instead.”
Warning message:
“Use of `clean_data$ENG_S11` is discouraged. Use `ENG_S11` instead.”
Warning message:
“Use of `clean_data$G_SC` is discouraged. Use `G_SC` instead.”
`geom_smooth()` using formula 'y ~ x'

# Pearsons Test
stats::cor.test(clean_data$G_SC, clean_data$ENG_S11, method='pearson')

	Pearson's product-moment correlation

data:  clean_data$G_SC and clean_data$ENG_S11
t = 98.435, df = 12409, p-value < 2.2e-16
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
 0.6521731 0.6719345
sample estimates:
      cor 
0.6621689 

Performing T-Test

# global grade and gender
# Describe the variables
psych::describeBy(clean_data$G_SC, clean_data$GENDER, mat=TRUE)

A data.frame: 2 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	F	1	5043	161.2782	22.33294	162	161.4994	23.7216	76	242	166	-0.07216008	-0.24717975	0.3144861
X12	2	M	1	7368	163.6908	23.58262	164	163.9561	25.2042	37	247	210	-0.12210492	0.01441897	0.2747370

# Using levene's test to test variance, pvalue needs to be greater than 0.05
car::leveneTest(G_SC ~ GENDER, data=clean_data)

A anova: 2 × 3

	Df	F value	Pr(>F)
	<int>	<dbl>	<dbl>
group	1	13.11544	0.00029404
	12409	NA	NA

# Levene's test showed unequal variance, therefore need to perform welsh modification to the t-test (will be rejected)
# therefore set var.equal to false
# Perfomring the T-test
stats::t.test(G_SC~GENDER,var.equal=FALSE,data=clean_data)

	Welch Two Sample t-test

data:  G_SC by GENDER
t = -5.7775, df = 11207, p-value = 7.785e-09
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -3.231169 -1.594067
sample estimates:
mean in group F mean in group M 
       161.2782        163.6908 

# Performing Cohen's d
res <- stats::t.test(G_SC~GENDER,var.equal=FALSE,data=clean_data)
effcd=round((2*res$statistic)/sqrt(res$parameter),2)
effectsize::t_to_d(t = res$statistic, res$parameter)

A effectsize_table: 1 × 4

	d	CI	CI_low	CI_high
	<dbl>	<dbl>	<dbl>	<dbl>
t	-0.109149	0.95	-0.1462022	-0.07209105

# global grade and Internet 
# Describe the variables
psych::describeBy(clean_data$G_SC, clean_data$INTERNET, mat=TRUE)

A data.frame: 2 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	No	1	2659	154.6164	22.20693	154	154.5843	22.2390	76	228	152	-0.001151644	-0.03269828	0.4306549
X12	2	Yes	1	9752	164.9175	22.86246	166	165.2390	23.7216	37	247	210	-0.130381036	-0.03758293	0.2315133

# Using levene's test to test variance, pvalue needs to be greater than 0.05
car::leveneTest(G_SC ~ INTERNET, data=clean_data)

A anova: 2 × 3

	Df	F value	Pr(>F)
	<int>	<dbl>	<dbl>
group	1	5.789355	0.01613804
	12409	NA	NA

# Levene's test showed unequal variance, therefore need to perform welsh modification to the t-test (wull be rejected)
# therefore set var.equal to false
# Perfomring the T-test
stats::t.test(G_SC~INTERNET,var.equal=FALSE,data=clean_data)

	Welch Two Sample t-test

data:  G_SC by INTERNET
t = -21.068, df = 4318, p-value < 2.2e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -11.259629  -9.342483
sample estimates:
 mean in group No mean in group Yes 
         154.6164          164.9175 

# Performing Cohen's d
res <- stats::t.test(G_SC~INTERNET,var.equal=FALSE,data=clean_data)
effcd=round((2*res$statistic)/sqrt(res$parameter),2)
effectsize::t_to_d(t = res$statistic, res$parameter)

A effectsize_table: 1 × 4

	d	CI	CI_low	CI_high
	<dbl>	<dbl>	<dbl>	<dbl>
t	-0.6412321	0.95	-0.702364	-0.5800293

# global grade and tv 
# Describe the variables
psych::describeBy(clean_data$G_SC, clean_data$TV, mat=TRUE)

A data.frame: 2 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	No	1	1842	155.4598	22.74521	155	155.5197	23.7216	77	228	151	-0.03963129	-0.13022982	0.5299625
X12	2	Yes	1	10569	163.9742	22.94365	164	164.2314	23.7216	37	247	210	-0.10536223	-0.05546219	0.2231750

# Using levene's test to test variance, pvalue needs to be greater than 0.05
car::leveneTest(G_SC ~ TV, data=clean_data)

A anova: 2 × 3

	Df	F value	Pr(>F)
	<int>	<dbl>	<dbl>
group	1	0.6489572	0.4205012
	12409	NA	NA

# Levene's 
# therefore set var.equal to true
# Perfomring the T-test
stats::t.test(G_SC~TV,var.equal=TRUE,data=clean_data)

	Two Sample t-test

data:  G_SC by TV
t = -14.716, df = 12409, p-value < 2.2e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -9.648411 -7.380276
sample estimates:
 mean in group No mean in group Yes 
         155.4598          163.9742 

# Performing Cohen's d
res <- stats::t.test(G_SC~TV,var.equal=TRUE,data=clean_data)
effcd=round((2*res$statistic)/sqrt(res$parameter),2)
effectsize::t_to_d(t = res$statistic, res$parameter)

A effectsize_table: 1 × 4

	d	CI	CI_low	CI_high
	<dbl>	<dbl>	<dbl>	<dbl>
t	-0.2642191	0.95	-0.2995563	-0.2288745

# global grade and computer (will be rejected, failed levene test)
# Describe the variables
psych::describeBy(clean_data$G_SC, clean_data$COMPUTER, mat=TRUE)

A data.frame: 2 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	No	1	2237	155.9526	21.86040	156	156.0815	22.2390	76	226	150	-0.07375166	-0.02764496	0.4621948
X12	2	Yes	1	10174	164.1964	23.11635	165	164.4912	23.7216	37	247	210	-0.11780745	-0.07145279	0.2291782

# Using levene's test to test variance, pvalue needs to be greater than 0.05
car::leveneTest(G_SC ~ COMPUTER, data=clean_data)

A anova: 2 × 3

	Df	F value	Pr(>F)
	<int>	<dbl>	<dbl>
group	1	13.99389	0.000184232
	12409	NA	NA

stats::t.test(G_SC~COMPUTER,var.equal=FALSE,data=clean_data)

	Welch Two Sample t-test

data:  G_SC by COMPUTER
t = -15.98, df = 3425.2, p-value < 2.2e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -9.255259 -7.232277
sample estimates:
 mean in group No mean in group Yes 
         155.9526          164.1964 

# Performing Cohen's d
res <- stats::t.test(G_SC~COMPUTER,var.equal=FALSE,data=clean_data)
effcd=round((2*res$statistic)/sqrt(res$parameter),2)
effectsize::t_to_d(t = res$statistic, res$parameter)

A effectsize_table: 1 × 4

	d	CI	CI_low	CI_high
	<dbl>	<dbl>	<dbl>	<dbl>
t	-0.5460778	0.95	-0.6142549	-0.4778292

# global grade and washing machine 
# Describe the variables
psych::describeBy(clean_data$G_SC, clean_data$WASHING_MCH, mat=TRUE)

A data.frame: 2 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	No	1	4723	159.5450	22.65193	160	159.6692	23.7216	72	234	162	-0.05825909	-0.165241010	0.3296069
X12	2	Yes	1	7688	164.6552	23.17896	165	164.9628	23.7216	37	247	210	-0.12962662	-0.005388311	0.2643549

# Using levene's test to test variance, pvalue needs to be greater than 0.05
car::leveneTest(G_SC ~ WASHING_MCH, data=clean_data)

A anova: 2 × 3

	Df	F value	Pr(>F)
	<int>	<dbl>	<dbl>
group	1	3.559192	0.05923989
	12409	NA	NA

stats::t.test(G_SC~WASHING_MCH,var.equal=TRUE,data=clean_data)

	Two Sample t-test

data:  G_SC by WASHING_MCH
t = -12.028, df = 12409, p-value < 2.2e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -5.942954 -4.277414
sample estimates:
 mean in group No mean in group Yes 
         159.5450          164.6552 

# Performing Cohen's d
res <- stats::t.test(G_SC~WASHING_MCH,var.equal=TRUE,data=clean_data)
effcd=round((2*res$statistic)/sqrt(res$parameter),2)
effectsize::t_to_d(t = res$statistic, res$parameter)

A effectsize_table: 1 × 4

	d	CI	CI_low	CI_high
	<dbl>	<dbl>	<dbl>	<dbl>
t	-0.2159551	0.95	-0.2512424	-0.1806592

# global grade and car
# Describe the variables
psych::describeBy(clean_data$G_SC, clean_data$CAR, mat=TRUE)

A data.frame: 2 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	No	1	6602	158.9327	22.58455	159	159.0718	23.7216	72	247	175	-0.07557222	-0.08255172	0.2779545
X12	2	Yes	1	5809	167.0040	22.95731	168	167.3887	23.7216	37	246	209	-0.14572616	-0.02378983	0.3012106

# Using levene's test to test variance, pvalue needs to be greater than 0.05
car::leveneTest(G_SC ~ CAR, data=clean_data)

A anova: 2 × 3

	Df	F value	Pr(>F)
	<int>	<dbl>	<dbl>
group	1	1.974571	0.1599885
	12409	NA	NA

stats::t.test(G_SC~CAR,var.equal=TRUE,data=clean_data)

	Two Sample t-test

data:  G_SC by CAR
t = -19.713, df = 12409, p-value < 2.2e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -8.873764 -7.268659
sample estimates:
 mean in group No mean in group Yes 
         158.9327          167.0040 

# Performing Cohen's d
res <- stats::t.test(G_SC~CAR,var.equal=TRUE,data=clean_data)
effcd=round((2*res$statistic)/sqrt(res$parameter),2)
effectsize::t_to_d(t = res$statistic, res$parameter)

A effectsize_table: 1 × 4

	d	CI	CI_low	CI_high
	<dbl>	<dbl>	<dbl>	<dbl>
t	-0.35393	0.95	-0.3893866	-0.3184593

# global grade and PHONE
# Describe the variables
psych::describeBy(clean_data$G_SC, clean_data$PHONE, mat=TRUE)

A data.frame: 2 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	No	1	521	159.1382	22.15201	159	159.1055	23.7216	97	220	123	0.006672379	-0.24326723	0.9704973
X12	2	Yes	1	11890	162.8670	23.14194	163	163.1102	23.7216	37	247	210	-0.101019252	-0.06825007	0.2122310

# Using levene's test to test variance, pvalue needs to be greater than 0.05
car::leveneTest(G_SC ~ PHONE, data=clean_data)

A anova: 2 × 3

	Df	F value	Pr(>F)
	<int>	<dbl>	<dbl>
group	1	1.694561	0.193025
	12409	NA	NA

stats::t.test(G_SC~PHONE,var.equal=TRUE,data=clean_data)

	Two Sample t-test

data:  G_SC by PHONE
t = -3.6061, df = 12409, p-value = 0.000312
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -5.755681 -1.701990
sample estimates:
 mean in group No mean in group Yes 
         159.1382          162.8670 

# Performing Cohen's d
res <- stats::t.test(G_SC~PHONE,var.equal=TRUE,data=clean_data)
effcd=round((2*res$statistic)/sqrt(res$parameter),2)
effectsize::t_to_d(t = res$statistic, res$parameter)

A effectsize_table: 1 × 4

	d	CI	CI_low	CI_high
	<dbl>	<dbl>	<dbl>	<dbl>
t	-0.06474476	0.95	-0.09994191	-0.02954502

# global grade and MOBILE
# Describe the variables
psych::describeBy(clean_data$G_SC, clean_data$MOBILE, mat=TRUE)

A data.frame: 2 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	No	1	3564	155.5056	22.41069	155	155.4772	23.7216	75	232	157	-0.01179409	-0.06841048	0.3753931
X12	2	Yes	1	8847	165.6130	22.75468	166	165.9508	23.7216	37	247	210	-0.13652254	-0.01855180	0.2419205

# Using levene's test to test variance, pvalue needs to be greater than 0.05
car::leveneTest(G_SC ~ MOBILE, data=clean_data)

A anova: 2 × 3

	Df	F value	Pr(>F)
	<int>	<dbl>	<dbl>
group	1	1.971302	0.1603348
	12409	NA	NA

stats::t.test(G_SC~MOBILE,var.equal=TRUE,data=clean_data)

	Two Sample t-test

data:  G_SC by MOBILE
t = -22.486, df = 12409, p-value < 2.2e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -10.988451  -9.226278
sample estimates:
 mean in group No mean in group Yes 
         155.5056          165.6130 

# Performing Cohen's d
res <- stats::t.test(G_SC~MOBILE,var.equal=TRUE,data=clean_data)
effcd=round((2*res$statistic)/sqrt(res$parameter),2)
effectsize::t_to_d(t = res$statistic, res$parameter)

A effectsize_table: 1 × 4

	d	CI	CI_low	CI_high
	<dbl>	<dbl>	<dbl>	<dbl>
t	-0.4037117	0.95	-0.4392496	-0.3681578

# testing on school nature
# Describe the variables
psych::describeBy(clean_data$G_SC, clean_data$SCHOOL_NAT, mat=TRUE)

A data.frame: 2 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	PRIVATE	1	6565	168.2158	22.82366	170	168.7379	23.7216	37	247	210	-0.20406097	0.02424670	0.2816877
X12	2	PUBLIC	1	5846	156.5281	21.83817	157	156.5667	22.2390	72	228	156	-0.05215938	-0.01912125	0.2856189

car::leveneTest(G_SC ~ SCHOOL_NAT, data=clean_data)

A anova: 2 × 3

	Df	F value	Pr(>F)
	<int>	<dbl>	<dbl>
group	1	12.61399	0.0003842897
	12409	NA	NA

stats::t.test(G_SC~SCHOOL_NAT,var.equal=FALSE,data=clean_data)

	Welch Two Sample t-test

data:  G_SC by SCHOOL_NAT
t = 29.135, df = 12345, p-value < 2.2e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 10.90146 12.47412
sample estimates:
mean in group PRIVATE  mean in group PUBLIC 
             168.2158              156.5281 

# Performing Cohen's d
res <- stats::t.test(G_SC~SCHOOL_NAT,var.equal=FALSE,data=clean_data)
effcd=round((2*res$statistic)/sqrt(res$parameter),2)
effectsize::t_to_d(t = res$statistic, res$parameter)

A effectsize_table: 1 × 4

	d	CI	CI_low	CI_high
	<dbl>	<dbl>	<dbl>	<dbl>
t	0.5244463	0.95	0.4885545	0.5603174

Anova Test

colnames(clean_data)

1. 'GENDER'
2. 'EDU_FATHER'
3. 'EDU_MOTHER'
4. 'OCC_FATHER'
5. 'OCC_MOTHER'
6. 'SISBEN'
7. 'PEOPLE_HOUSE'
8. 'INTERNET'
9. 'TV'
10. 'COMPUTER'
11. 'WASHING_MCH'
12. 'MIC_OVEN'
13. 'CAR'
14. 'DVD'
15. 'PHONE'
16. 'MOBILE'
17. 'REVENUE'
18. 'JOB'
19. 'SCHOOL_NAT'
20. 'SCHOOL_TYPE'
21. 'MAT_S11'
22. 'CR_S11'
23. 'BIO_S11'
24. 'ENG_S11'
25. 'G_SC'

clean_data

A data.frame: 12411 × 25

	GENDER	EDU_FATHER	EDU_MOTHER	OCC_FATHER	OCC_MOTHER	SISBEN	PEOPLE_HOUSE	INTERNET	TV	COMPUTER	⋯	MOBILE	REVENUE	JOB	SCHOOL_NAT	SCHOOL_TYPE	MAT_S11	CR_S11	BIO_S11	ENG_S11	G_SC
	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	⋯	<fct>	<fct>	<fct>	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
1	F	Incomplete Professional Education	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	71	81	86	82	180
2	F	Complete Secundary	Complete professional education	Entrepreneur	Independent professional	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	83	75	100	88	182
3	M	Not sure	Not sure	Independent	Home	Level 2	Five	No	No	Yes	⋯	No	Between 1 and less than 2 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	52	49	46	42	113
4	F	Not sure	Not sure	Other occupation	Independent	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	56	55	64	73	157
5	M	Complete professional education	Complete professional education	Executive	Home	It is not classified by the SISBEN	One	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	80	65	85	92	198
6	F	Complete professional education	Complete professional education	Independent	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	71	60	61	82	154
7	M	Complete professional education	Complete professional education	Small entrepreneur	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	71	75	75	85	152
8	F	Incomplete Secundary	Complete Secundary	Entrepreneur	Independent professional	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	10 or more LMMW	No	PRIVATE	ACADEMIC	74	67	85	96	200
9	M	Complete Secundary	Complete professional education	Independent	Operator	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	TECHNICAL	44	54	44	46	133
10	M	Incomplete technical or technological	Incomplete technical or technological	Independent	Home	Level 2	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	52	55	55	65	126
11	F	Not sure	Not sure	Other occupation	Independent professional	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	74	71	78	96	200
12	M	Complete technique or technology	Complete Secundary	Technical or professional level employee	Entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	54	47	45	43	133
13	F	Not sure	Incomplete technical or technological	Small entrepreneur	Home	It is not classified by the SISBEN	Five	No	Yes	Yes	⋯	No	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	56	62	61	50	148
14	M	Complete professional education	Complete professional education	Entrepreneur	Small entrepreneur	It is not classified by the SISBEN	Six	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	76	71	75	82	191
15	F	Incomplete primary	Incomplete primary	Small entrepreneur	Executive	Level 1	Two	No	No	No	⋯	No	less than 1 LMMW	Yes, 20 hours or more per week	PRIVATE	ACADEMIC	56	45	51	44	157
16	F	Complete technique or technology	Not sure	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Two	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	62	58	55	59	164
17	M	Complete professional education	Complete professional education	Small entrepreneur	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	74	67	78	68	162
18	M	Complete professional education	Complete professional education	Independent professional	Independent professional	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	74	64	72	88	188
19	M	Complete technique or technology	Complete Secundary	Operator	Independent	Level 2	Four	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	Yes, less than 20 hours per week	PRIVATE	ACADEMIC	44	49	44	44	129
20	M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	Esta clasificada en otro Level del SISBEN	Three	Yes	Yes	Yes	⋯	No	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	61	44	41	53	170
21	M	Complete professional education	Complete professional education	Independent professional	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	58	53	48	58	170
22	M	Incomplete primary	Incomplete Secundary	Independent	Home	It is not classified by the SISBEN	Four	Yes	No	Yes	⋯	Yes	less than 1 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	60	47	56	57	144
23	M	Complete primary	Incomplete primary	Independent	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	53	47	36	64	138
24	M	Incomplete primary	Incomplete primary	0	0	It is not classified by the SISBEN	Five	Yes	Yes	No	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	67	65	72	82	164
25	M	Complete professional education	Incomplete Professional Education	Executive	Operator	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	80	71	66	75	194
26	M	Complete technique or technology	Complete technique or technology	Executive	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	83	75	100	71	201
27	M	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	69	56	63	70	155
28	M	Postgraduate education	Complete professional education	Executive	Auxiliary or Administrative	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	85	71	72	92	180
29	F	Complete Secundary	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	48	56	51	54	137
30	F	Complete technique or technology	Complete technique or technology	Executive	Independent	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	TECHNICAL/ACADEMIC	48	44	61	48	161
⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋱	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮
12382	F	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	67	72	75	62	179
12383	F	Postgraduate education	Postgraduate education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	74	72	70	100	215
12384	M	Complete Secundary	Complete technique or technology	Other occupation	Other occupation	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	61	57	61	52	154
12385	F	Complete primary	Complete Secundary	Other occupation	Home	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	52	67	61	53	168
12386	M	Postgraduate education	Postgraduate education	Executive	Executive	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	10 or more LMMW	No	PRIVATE	ACADEMIC	87	72	74	88	194
12387	M	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC	85	72	81	65	209
12388	F	Complete Secundary	Complete Secundary	Other occupation	Other occupation	Level 2	Three	No	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	55	55	63	58	171
12389	F	Incomplete primary	Complete primary	Independent	Home	Level 1	Three	No	No	No	⋯	No	less than 1 LMMW	No	PUBLIC	TECHNICAL	69	67	73	59	183
12390	F	Complete Secundary	Incomplete Secundary	Independent	Home	Level 1	Six	Yes	Yes	Yes	⋯	Yes	less than 1 LMMW	No	PUBLIC	ACADEMIC	63	63	72	61	161
12391	F	Complete professional education	Complete Secundary	Operator	Retired	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	66	60	58	51	166
12392	F	Incomplete Professional Education	Complete technique or technology	Auxiliary or Administrative	Other occupation	It is not classified by the SISBEN	Two	Yes	Yes	No	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	53	60	59	61	159
12393	M	Complete primary	Complete Secundary	Operator	Home	It is not classified by the SISBEN	Six	Yes	Yes	Yes	⋯	No	Between 1 and less than 2 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	44	48	54	54	161
12394	M	Complete professional education	Complete professional education	Executive	Other occupation	It is not classified by the SISBEN	Five	Yes	Yes	Yes	⋯	No	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	81	69	75	71	179
12395	M	Incomplete primary	Complete Secundary	Independent	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	ACADEMIC	52	47	56	58	138
12396	F	Complete professional education	Complete Secundary	Small entrepreneur	Small entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	64	57	58	49	127
12397	M	Incomplete Professional Education	Complete professional education	Independent	Other occupation	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	58	62	64	69	177
12398	F	Complete Secundary	Complete Secundary	Operator	Home	Level 2	Three	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	55	51	48	43	127
12399	M	Incomplete Secundary	Incomplete Secundary	Independent	Home	Level 1	Six	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	Yes, less than 20 hours per week	PUBLIC	TECHNICAL/ACADEMIC	72	60	64	53	180
12400	F	Complete Secundary	Complete primary	Other occupation	Independent	Level 1	Five	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	69	65	73	77	182
12401	F	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 7 and less than 10 LMMW	No	PRIVATE	ACADEMIC	66	58	57	69	169
12402	F	Complete Secundary	Incomplete technical or technological	Independent	Auxiliary or Administrative	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PUBLIC	TECHNICAL/ACADEMIC	87	72	71	81	135
12403	F	Incomplete technical or technological	Complete technique or technology	Operator	Independent professional	Level 1	Six	Yes	Yes	No	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	64	61	67	67	181
12404	F	Not sure	Not sure	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PRIVATE	ACADEMIC	67	61	71	64	179
12405	F	Not sure	Not sure	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	Yes	⋯	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC	75	75	72	100	183
12406	M	Incomplete technical or technological	Incomplete Secundary	Other occupation	Home	It is not classified by the SISBEN	Two	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	61	63	68	77	130
12407	M	Ninguno	Complete Secundary	Other occupation	Auxiliary or Administrative	It is not classified by the SISBEN	Six	Yes	Yes	Yes	⋯	Yes	Between 1 and less than 2 LMMW	No	PRIVATE	ACADEMIC	67	69	67	81	176
12408	M	Complete professional education	Complete Secundary	Executive	Other occupation	Level 2	Five	Yes	Yes	Yes	⋯	Yes	Between 2 and less than 3 LMMW	No	PUBLIC	ACADEMIC	58	57	63	53	107
12409	M	Complete technique or technology	Complete technique or technology	Retired	Home	Level 2	Five	Yes	Yes	Yes	⋯	Yes	Between 3 and less than 5 LMMW	No	PRIVATE	ACADEMIC	66	69	70	58	188
12410	F	Complete professional education	Complete professional education	Independent professional	Small entrepreneur	It is not classified by the SISBEN	Seven	Yes	Yes	Yes	⋯	Yes	Between 5 and less than 7 LMMW	No	PRIVATE	ACADEMIC	53	69	59	52	146
12411	M	Complete Secundary	Complete primary	Independent	Home	Level 1	Four	No	No	No	⋯	Yes	Between 1 and less than 2 LMMW	No	PUBLIC	ACADEMIC	79	65	77	73	178

# Anova test for fathers education and global grade 
# Check the statistical description of variable of interest
psych::describeBy(clean_data$G_SC, clean_data$EDU_FATHER, mat=TRUE)
# performing Barrets test for homogenity of variance
stats::bartlett.test(G_SC~ EDU_FATHER, data=clean_data)

A data.frame: 12 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	0	1	391	155.0767	20.05721	155	155.5847	19.2738	77	203	126	-0.319316625	0.26313358	1.0143365
X12	2	Complete primary	1	824	155.1954	22.41077	155	155.3167	23.7216	78	230	152	-0.068956147	-0.01017332	0.7807160
X13	3	Complete professional education	1	3016	167.7659	23.03009	169	168.2722	23.7216	76	247	171	-0.192568623	-0.05091930	0.4193532
X14	4	Complete Secundary	1	2843	158.7858	22.11429	159	158.9727	22.2390	72	228	156	-0.083178441	-0.16393402	0.4147482
X15	5	Complete technique or technology	1	1194	164.0335	22.16536	164	164.1956	22.2390	75	228	153	-0.094250336	-0.18468672	0.6414645
X16	6	Incomplete primary	1	735	155.7293	20.94241	156	155.7997	22.2390	81	232	151	-0.006001731	-0.07957150	0.7724725
X17	7	Incomplete Professional Education	1	425	166.9176	22.68520	168	168.0469	22.2390	37	228	191	-0.763087611	2.25416563	1.1003937
X18	8	Incomplete Secundary	1	1091	156.5353	21.73699	157	156.5968	23.7216	76	220	144	-0.046850283	-0.15254558	0.6580926
X19	9	Incomplete technical or technological	1	277	162.1011	21.88120	162	162.5247	22.2390	99	224	125	-0.136742639	-0.28886554	1.3147138
X110	10	Ninguno	1	123	156.6341	23.18856	159	156.8990	25.2042	77	220	143	-0.200929971	0.44672042	2.0908420
X111	11	Not sure	1	407	160.2948	22.93956	159	159.8410	23.7216	102	236	134	0.191984725	-0.28792211	1.1370715
X112	12	Postgraduate education	1	1085	176.9853	21.73413	179	177.6974	20.7564	110	242	132	-0.272827378	0.12487414	0.6598230

	Bartlett test of homogeneity of variances

data:  G_SC by EDU_FATHER
Bartlett's K-squared = 24.643, df = 11, p-value = 0.01028

# One-way Anova test 
anova_result<-userfriendlyscience::oneway(as.factor(clean_data$EDU_FATHER),y=clean_data$G_SC,posthoc='games-howell')
anova_result
# access values in order to get f-statisitc on nect step
res2<-stats::aov(G_SC~ EDU_FATHER, data = clean_data)
fstat<-summary(res2)[[1]][["F value"]][[1]]
fstat
# Get the p-value
anova_p_value<-summary(res2)[[1]][["Pr(>F)"]][[1]]
anova_p_value
# Calculating the effect
aoveta<-sjstats::eta_sq(res2)[2]
aoveta

### Oneway Anova for y=G_SC and x=EDU_FATHER (groups: 0, Complete primary, Complete professional education, Complete Secundary, Complete technique or technology, Incomplete primary, Incomplete Professional Education, Incomplete Secundary, Incomplete technical or technological, Ninguno, Not sure, Postgraduate education)

Omega squared: 95% CI = [.07; .08], point estimate = .08
Eta Squared: 95% CI = [.07; .08], point estimate = .08

                                       SS    Df       MS     F     p
Between groups (error + effect) 505340.92    11 45940.08 93.01 <.001
Within groups (error only)      6123915.9 12399    493.9            


### Post hoc test: games-howell

                                                                          diff
Complete primary-0                                                        0.12
Complete professional education-0                                        12.69
Complete Secundary-0                                                      3.71
Complete technique or technology-0                                        8.96
Incomplete primary-0                                                      0.65
Incomplete Professional Education-0                                      11.84
Incomplete Secundary-0                                                    1.46
Incomplete technical or technological-0                                   7.02
Ninguno-0                                                                 1.56
Not sure-0                                                                5.22
Postgraduate education-0                                                 21.91
Complete professional education-Complete primary                         12.57
Complete Secundary-Complete primary                                       3.59
Complete technique or technology-Complete primary                         8.84
Incomplete primary-Complete primary                                       0.53
Incomplete Professional Education-Complete primary                       11.72
Incomplete Secundary-Complete primary                                     1.34
Incomplete technical or technological-Complete primary                    6.91
Ninguno-Complete primary                                                  1.44
Not sure-Complete primary                                                 5.10
Postgraduate education-Complete primary                                  21.79
Complete Secundary-Complete professional education                       -8.98
Complete technique or technology-Complete professional education         -3.73
Incomplete primary-Complete professional education                      -12.04
Incomplete Professional Education-Complete professional education        -0.85
Incomplete Secundary-Complete professional education                    -11.23
Incomplete technical or technological-Complete professional education    -5.66
Ninguno-Complete professional education                                 -11.13
Not sure-Complete professional education                                 -7.47
Postgraduate education-Complete professional education                    9.22
Complete technique or technology-Complete Secundary                       5.25
Incomplete primary-Complete Secundary                                    -3.06
Incomplete Professional Education-Complete Secundary                      8.13
Incomplete Secundary-Complete Secundary                                  -2.25
Incomplete technical or technological-Complete Secundary                  3.32
Ninguno-Complete Secundary                                               -2.15
Not sure-Complete Secundary                                               1.51
Postgraduate education-Complete Secundary                                18.20
Incomplete primary-Complete technique or technology                      -8.30
Incomplete Professional Education-Complete technique or technology        2.88
Incomplete Secundary-Complete technique or technology                    -7.50
Incomplete technical or technological-Complete technique or technology   -1.93
Ninguno-Complete technique or technology                                 -7.40
Not sure-Complete technique or technology                                -3.74
Postgraduate education-Complete technique or technology                  12.95
Incomplete Professional Education-Incomplete primary                     11.19
Incomplete Secundary-Incomplete primary                                   0.81
Incomplete technical or technological-Incomplete primary                  6.37
Ninguno-Incomplete primary                                                0.90
Not sure-Incomplete primary                                               4.57
Postgraduate education-Incomplete primary                                21.26
Incomplete Secundary-Incomplete Professional Education                  -10.38
Incomplete technical or technological-Incomplete Professional Education  -4.82
Ninguno-Incomplete Professional Education                               -10.28
Not sure-Incomplete Professional Education                               -6.62
Postgraduate education-Incomplete Professional Education                 10.07
Incomplete technical or technological-Incomplete Secundary                5.57
Ninguno-Incomplete Secundary                                              0.10
Not sure-Incomplete Secundary                                             3.76
Postgraduate education-Incomplete Secundary                              20.45
Ninguno-Incomplete technical or technological                            -5.47
Not sure-Incomplete technical or technological                           -1.81
Postgraduate education-Incomplete technical or technological             14.88
Not sure-Ninguno                                                          3.66
Postgraduate education-Ninguno                                           20.35
Postgraduate education-Not sure                                          16.69
                                                                         ci.lo
Complete primary-0                                                       -4.08
Complete professional education-0                                         9.09
Complete Secundary-0                                                      0.11
Complete technique or technology-0                                        5.02
Incomplete primary-0                                                     -3.53
Incomplete Professional Education-0                                       6.94
Incomplete Secundary-0                                                   -2.51
Incomplete technical or technological-0                                   1.57
Ninguno-0                                                                -6.14
Not sure-0                                                                0.22
Postgraduate education-0                                                 17.94
Complete professional education-Complete primary                          9.67
Complete Secundary-Complete primary                                       0.70
Complete technique or technology-Complete primary                         5.53
Incomplete primary-Complete primary                                      -3.06
Incomplete Professional Education-Complete primary                        7.30
Incomplete Secundary-Complete primary                                    -2.00
Incomplete technical or technological-Complete primary                    1.88
Ninguno-Complete primary                                                 -5.97
Not sure-Complete primary                                                 0.58
Postgraduate education-Complete primary                                  18.44
Complete Secundary-Complete professional education                      -10.91
Complete technique or technology-Complete professional education         -6.24
Incomplete primary-Complete professional education                      -14.91
Incomplete Professional Education-Complete professional education        -4.71
Incomplete Secundary-Complete professional education                    -13.78
Incomplete technical or technological-Complete professional education   -10.21
Ninguno-Complete professional education                                 -18.23
Not sure-Complete professional education                                -11.45
Postgraduate education-Complete professional education                    6.66
Complete technique or technology-Complete Secundary                       2.75
Incomplete primary-Complete Secundary                                    -5.93
Incomplete Professional Education-Complete Secundary                      4.27
Incomplete Secundary-Complete Secundary                                  -4.80
Incomplete technical or technological-Complete Secundary                 -1.22
Ninguno-Complete Secundary                                               -9.24
Not sure-Complete Secundary                                              -2.46
Postgraduate education-Complete Secundary                                15.65
Incomplete primary-Complete technique or technology                     -11.59
Incomplete Professional Education-Complete technique or technology       -1.29
Incomplete Secundary-Complete technique or technology                   -10.50
Incomplete technical or technological-Complete technique or technology   -6.74
Ninguno-Complete technique or technology                                -14.66
Not sure-Complete technique or technology                                -8.02
Postgraduate education-Complete technique or technology                   9.94
Incomplete Professional Education-Incomplete primary                      6.78
Incomplete Secundary-Incomplete primary                                  -2.52
Incomplete technical or technological-Incomplete primary                  1.36
Ninguno-Incomplete primary                                               -6.49
Not sure-Incomplete primary                                               0.06
Postgraduate education-Incomplete primary                                17.93
Incomplete Secundary-Incomplete Professional Education                  -14.59
Incomplete technical or technological-Incomplete Professional Education -10.44
Ninguno-Incomplete Professional Education                               -18.10
Not sure-Incomplete Professional Education                              -11.81
Postgraduate education-Incomplete Professional Education                  5.86
Incomplete technical or technological-Incomplete Secundary                0.73
Ninguno-Incomplete Secundary                                             -7.18
Not sure-Incomplete Secundary                                            -0.55
Postgraduate education-Incomplete Secundary                              17.40
Ninguno-Incomplete technical or technological                           -13.63
Not sure-Incomplete technical or technological                           -7.51
Postgraduate education-Incomplete technical or technological             10.05
Not sure-Ninguno                                                         -4.21
Postgraduate education-Ninguno                                           13.07
Postgraduate education-Not sure                                          12.38
                                                                        ci.hi
Complete primary-0                                                       4.31
Complete professional education-0                                       16.29
Complete Secundary-0                                                     7.31
Complete technique or technology-0                                      12.89
Incomplete primary-0                                                     4.83
Incomplete Professional Education-0                                     16.75
Incomplete Secundary-0                                                   5.42
Incomplete technical or technological-0                                 12.47
Ninguno-0                                                                9.25
Not sure-0                                                              10.21
Postgraduate education-0                                                25.88
Complete professional education-Complete primary                        15.47
Complete Secundary-Complete primary                                      6.48
Complete technique or technology-Complete primary                       12.14
Incomplete primary-Complete primary                                      4.13
Incomplete Professional Education-Complete primary                      16.14
Incomplete Secundary-Complete primary                                    4.68
Incomplete technical or technological-Complete primary                  11.93
Ninguno-Complete primary                                                 8.84
Not sure-Complete primary                                                9.62
Postgraduate education-Complete primary                                 25.13
Complete Secundary-Complete professional education                      -7.05
Complete technique or technology-Complete professional education        -1.23
Incomplete primary-Complete professional education                      -9.16
Incomplete Professional Education-Complete professional education        3.02
Incomplete Secundary-Complete professional education                    -8.68
Incomplete technical or technological-Complete professional education   -1.12
Ninguno-Complete professional education                                 -4.04
Not sure-Complete professional education                                -3.49
Postgraduate education-Complete professional education                  11.78
Complete technique or technology-Complete Secundary                      7.75
Incomplete primary-Complete Secundary                                   -0.19
Incomplete Professional Education-Complete Secundary                    11.99
Incomplete Secundary-Complete Secundary                                  0.29
Incomplete technical or technological-Complete Secundary                 7.85
Ninguno-Complete Secundary                                               4.94
Not sure-Complete Secundary                                              5.48
Postgraduate education-Complete Secundary                               20.75
Incomplete primary-Complete technique or technology                     -5.02
Incomplete Professional Education-Complete technique or technology       7.06
Incomplete Secundary-Complete technique or technology                   -4.49
Incomplete technical or technological-Complete technique or technology   2.88
Ninguno-Complete technique or technology                                -0.13
Not sure-Complete technique or technology                                0.54
Postgraduate education-Complete technique or technology                 15.96
Incomplete Professional Education-Incomplete primary                    15.59
Incomplete Secundary-Incomplete primary                                  4.13
Incomplete technical or technological-Incomplete primary                11.38
Ninguno-Incomplete primary                                               8.30
Not sure-Incomplete primary                                              9.07
Postgraduate education-Incomplete primary                               24.58
Incomplete Secundary-Incomplete Professional Education                  -6.18
Incomplete technical or technological-Incomplete Professional Education  0.81
Ninguno-Incomplete Professional Education                               -2.47
Not sure-Incomplete Professional Education                              -1.44
Postgraduate education-Incomplete Professional Education                14.27
Incomplete technical or technological-Incomplete Secundary              10.40
Ninguno-Incomplete Secundary                                             7.38
Not sure-Incomplete Secundary                                            8.07
Postgraduate education-Incomplete Secundary                             23.50
Ninguno-Incomplete technical or technological                            2.69
Not sure-Incomplete technical or technological                           3.90
Postgraduate education-Incomplete technical or technological            19.72
Not sure-Ninguno                                                        11.53
Postgraduate education-Ninguno                                          27.63
Postgraduate education-Not sure                                         21.00
                                                                            t
Complete primary-0                                                       0.09
Complete professional education-0                                       11.56
Complete Secundary-0                                                     3.38
Complete technique or technology-0                                       7.46
Incomplete primary-0                                                     0.51
Incomplete Professional Education-0                                      7.91
Incomplete Secundary-0                                                   1.21
Incomplete technical or technological-0                                  4.23
Ninguno-0                                                                0.67
Not sure-0                                                               3.42
Postgraduate education-0                                                18.11
Complete professional education-Complete primary                        14.18
Complete Secundary-Complete primary                                      4.06
Complete technique or technology-Complete primary                        8.75
Incomplete primary-Complete primary                                      0.49
Incomplete Professional Education-Complete primary                       8.69
Incomplete Secundary-Complete primary                                    1.31
Incomplete technical or technological-Complete primary                   4.52
Ninguno-Complete primary                                                 0.64
Not sure-Complete primary                                                3.70
Postgraduate education-Complete primary                                 21.32
Complete Secundary-Complete professional education                      15.23
Complete technique or technology-Complete professional education         4.87
Incomplete primary-Complete professional education                      13.69
Incomplete Professional Education-Complete professional education        0.72
Incomplete Secundary-Complete professional education                    14.39
Incomplete technical or technological-Complete professional education    4.11
Ninguno-Complete professional education                                  5.22
Not sure-Complete professional education                                 6.16
Postgraduate education-Complete professional education                  11.79
Complete technique or technology-Complete Secundary                      6.87
Incomplete primary-Complete Secundary                                    3.49
Incomplete Professional Education-Complete Secundary                     6.92
Incomplete Secundary-Complete Secundary                                  2.89
Incomplete technical or technological-Complete Secundary                 2.40
Ninguno-Complete Secundary                                               1.01
Not sure-Complete Secundary                                              1.25
Postgraduate education-Complete Secundary                               23.35
Incomplete primary-Complete technique or technology                      8.27
Incomplete Professional Education-Complete technique or technology       2.26
Incomplete Secundary-Complete technique or technology                    8.16
Incomplete technical or technological-Complete technique or technology   1.32
Ninguno-Complete technique or technology                                 3.38
Not sure-Complete technique or technology                                2.86
Postgraduate education-Complete technique or technology                 14.07
Incomplete Professional Education-Incomplete primary                     8.32
Incomplete Secundary-Incomplete primary                                  0.79
Incomplete technical or technological-Incomplete primary                 4.18
Ninguno-Incomplete primary                                               0.41
Not sure-Incomplete primary                                              3.32
Postgraduate education-Incomplete primary                               20.92
Incomplete Secundary-Incomplete Professional Education                   8.10
Incomplete technical or technological-Incomplete Professional Education  2.81
Ninguno-Incomplete Professional Education                                4.35
Not sure-Incomplete Professional Education                               4.19
Postgraduate education-Incomplete Professional Education                 7.85
Incomplete technical or technological-Incomplete Secundary               3.79
Ninguno-Incomplete Secundary                                             0.05
Not sure-Incomplete Secundary                                            2.86
Postgraduate education-Incomplete Secundary                             21.94
Ninguno-Incomplete technical or technological                            2.21
Not sure-Incomplete technical or technological                           1.04
Postgraduate education-Incomplete technical or technological            10.12
Not sure-Ninguno                                                         1.54
Postgraduate education-Ninguno                                           9.28
Postgraduate education-Not sure                                         12.70
                                                                             df
Complete primary-0                                                       847.93
Complete professional education-0                                        532.70
Complete Secundary-0                                                     529.28
Complete technique or technology-0                                       726.34
Incomplete primary-0                                                     825.94
Incomplete Professional Education-0                                      812.73
Incomplete Secundary-0                                                   740.48
Incomplete technical or technological-0                                  561.56
Ninguno-0                                                                183.01
Not sure-0                                                               789.08
Postgraduate education-0                                                 742.08
Complete professional education-Complete primary                        1336.05
Complete Secundary-Complete primary                                     1322.57
Complete technique or technology-Complete primary                       1756.90
Incomplete primary-Complete primary                                     1553.62
Incomplete Professional Education-Complete primary                       847.64
Incomplete Secundary-Complete primary                                   1743.45
Incomplete technical or technological-Complete primary                   484.76
Ninguno-Complete primary                                                 157.94
Not sure-Complete primary                                                792.17
Postgraduate education-Complete primary                                 1743.32
Complete Secundary-Complete professional education                      5855.00
Complete technique or technology-Complete professional education        2266.80
Incomplete primary-Complete professional education                      1204.91
Incomplete Professional Education-Complete professional education        554.46
Incomplete Secundary-Complete professional education                    2033.70
Incomplete technical or technological-Complete professional education    334.70
Ninguno-Complete professional education                                  132.00
Not sure-Complete professional education                                 522.65
Postgraduate education-Complete professional education                  2018.19
Complete technique or technology-Complete Secundary                     2234.99
Incomplete primary-Complete Secundary                                   1192.58
Incomplete Professional Education-Complete Secundary                     551.36
Incomplete Secundary-Complete Secundary                                 2006.42
Incomplete technical or technological-Complete Secundary                 333.35
Ninguno-Complete Secundary                                               131.78
Not sure-Complete Secundary                                              519.90
Postgraduate education-Complete Secundary                               1991.25
Incomplete primary-Complete technique or technology                     1621.06
Incomplete Professional Education-Complete technique or technology       731.12
Incomplete Secundary-Complete technique or technology                   2271.62
Incomplete technical or technological-Complete technique or technology   417.57
Ninguno-Complete technique or technology                                 145.92
Not sure-Complete technique or technology                                682.03
Postgraduate education-Complete technique or technology                 2263.87
Incomplete Professional Education-Incomplete primary                     828.62
Incomplete Secundary-Incomplete primary                                 1613.69
Incomplete technical or technological-Incomplete primary                 478.04
Ninguno-Incomplete primary                                               157.09
Not sure-Incomplete primary                                              775.83
Postgraduate education-Incomplete primary                               1614.02
Incomplete Secundary-Incomplete Professional Education                   744.49
Incomplete technical or technological-Incomplete Professional Education  604.91
Ninguno-Incomplete Professional Education                                194.65
Not sure-Incomplete Professional Education                               827.54
Postgraduate education-Incomplete Professional Education                 745.99
Incomplete technical or technological-Incomplete Secundary               424.88
Ninguno-Incomplete Secundary                                             147.21
Not sure-Incomplete Secundary                                            694.52
Postgraduate education-Incomplete Secundary                             2173.94
Ninguno-Incomplete technical or technological                            222.19
Not sure-Incomplete technical or technological                           610.95
Postgraduate education-Incomplete technical or technological             425.67
Not sure-Ninguno                                                         199.59
Postgraduate education-Ninguno                                           147.35
Postgraduate education-Not sure                                          695.90
                                                                            p
Complete primary-0                                                      1.000
Complete professional education-0                                       <.001
Complete Secundary-0                                                     .036
Complete technique or technology-0                                      <.001
Incomplete primary-0                                                    1.000
Incomplete Professional Education-0                                     <.001
Incomplete Secundary-0                                                   .988
Incomplete technical or technological-0                                  .002
Ninguno-0                                                               1.000
Not sure-0                                                               .032
Postgraduate education-0                                                <.001
Complete professional education-Complete primary                        <.001
Complete Secundary-Complete primary                                      .003
Complete technique or technology-Complete primary                       <.001
Incomplete primary-Complete primary                                     1.000
Incomplete Professional Education-Complete primary                      <.001
Incomplete Secundary-Complete primary                                    .978
Incomplete technical or technological-Complete primary                  <.001
Ninguno-Complete primary                                                1.000
Not sure-Complete primary                                                .012
Postgraduate education-Complete primary                                 <.001
Complete Secundary-Complete professional education                      <.001
Complete technique or technology-Complete professional education        <.001
Incomplete primary-Complete professional education                      <.001
Incomplete Professional Education-Complete professional education       1.000
Incomplete Secundary-Complete professional education                    <.001
Incomplete technical or technological-Complete professional education    .003
Ninguno-Complete professional education                                 <.001
Not sure-Complete professional education                                <.001
Postgraduate education-Complete professional education                  <.001
Complete technique or technology-Complete Secundary                     <.001
Incomplete primary-Complete Secundary                                    .025
Incomplete Professional Education-Complete Secundary                    <.001
Incomplete Secundary-Complete Secundary                                  .144
Incomplete technical or technological-Complete Secundary                 .406
Ninguno-Complete Secundary                                               .997
Not sure-Complete Secundary                                              .985
Postgraduate education-Complete Secundary                               <.001
Incomplete primary-Complete technique or technology                     <.001
Incomplete Professional Education-Complete technique or technology       .503
Incomplete Secundary-Complete technique or technology                   <.001
Incomplete technical or technological-Complete technique or technology   .976
Ninguno-Complete technique or technology                                 .042
Not sure-Complete technique or technology                                .157
Postgraduate education-Complete technique or technology                 <.001
Incomplete Professional Education-Incomplete primary                    <.001
Incomplete Secundary-Incomplete primary                                 1.000
Incomplete technical or technological-Incomplete primary                 .002
Ninguno-Incomplete primary                                              1.000
Not sure-Incomplete primary                                              .044
Postgraduate education-Incomplete primary                               <.001
Incomplete Secundary-Incomplete Professional Education                  <.001
Incomplete technical or technological-Incomplete Professional Education  .179
Ninguno-Incomplete Professional Education                                .001
Not sure-Incomplete Professional Education                               .002
Postgraduate education-Incomplete Professional Education                <.001
Incomplete technical or technological-Incomplete Secundary               .009
Ninguno-Incomplete Secundary                                            1.000
Not sure-Incomplete Secundary                                            .157
Postgraduate education-Incomplete Secundary                             <.001
Ninguno-Incomplete technical or technological                            .542
Not sure-Incomplete technical or technological                           .997
Postgraduate education-Incomplete technical or technological            <.001
Not sure-Ninguno                                                         .928
Postgraduate education-Ninguno                                          <.001
Postgraduate education-Not sure                                         <.001

93.0141931826593

6.87571135108827e-204

A sj_anova_stat: 1 × 1

	etasq
	<dbl>
1	0.07622889

Next

# Anova test for mothers education and global grade 
# Check the statistical description of variable of interest
psych::describeBy(clean_data$G_SC, clean_data$EDU_MOTHER, mat=TRUE)
# performing Barrets test for homogenity of variance
stats::bartlett.test(G_SC~ EDU_MOTHER, data=clean_data)

A data.frame: 12 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	0	1	388	154.9304	19.95415	155.0	155.3269	19.2738	77	205	128	-0.27478298	0.320965745	1.0130187
X12	2	Complete primary	1	713	155.3366	22.01229	155.0	155.2224	22.2390	81	230	149	0.05076935	-0.026313840	0.8243668
X13	3	Complete professional education	1	3059	168.8454	22.97832	170.0	169.3042	23.7216	91	246	155	-0.15360761	-0.143721793	0.4154594
X14	4	Complete Secundary	1	3106	158.4707	21.94960	159.0	158.6122	22.2390	76	247	171	-0.06963512	-0.097759442	0.3938454
X15	5	Complete technique or technology	1	1495	163.2421	21.94349	163.0	163.4311	23.7216	91	234	143	-0.07966635	-0.257586433	0.5675253
X16	6	Incomplete primary	1	541	154.8540	21.63602	155.0	154.9492	23.7216	94	232	138	-0.00391625	-0.169809064	0.9302053
X17	7	Incomplete Professional Education	1	502	166.6853	22.93183	168.0	167.3284	22.2390	37	243	206	-0.51750744	2.101115422	1.0234976
X18	8	Incomplete Secundary	1	1056	155.6723	21.92864	156.0	155.9054	23.7216	72	210	138	-0.19432538	-0.039150313	0.6748071
X19	9	Incomplete technical or technological	1	341	161.8798	20.74439	164.0	162.3956	20.7564	102	214	112	-0.25478594	-0.197362931	1.1233716
X110	10	Ninguno	1	34	149.7059	27.93014	152.5	150.8214	25.9455	77	220	143	-0.28039955	0.480689950	4.7899794
X111	11	Not sure	1	179	159.4078	25.46966	159.0	159.1931	28.1694	107	230	123	0.08840435	-0.674044710	1.9036917
X112	12	Postgraduate education	1	997	175.6369	22.11976	178.0	176.5219	20.7564	100	242	142	-0.35297804	0.001036465	0.7005398

	Bartlett test of homogeneity of variances

data:  G_SC by EDU_MOTHER
Bartlett's K-squared = 33.415, df = 11, p-value = 0.0004506

# One-way Anova test 
anova_result<-userfriendlyscience::oneway(as.factor(clean_data$EDU_MOTHER),y=clean_data$G_SC,posthoc='games-howell')
anova_result
# access values in order to get f-statisitc on nect step
res2<-stats::aov(G_SC~ EDU_MOTHER, data = clean_data)
fstat<-summary(res2)[[1]][["F value"]][[1]]
fstat
# Get the p-value
anova_p_value<-summary(res2)[[1]][["Pr(>F)"]][[1]]
anova_p_value
# Calculating the effect
aoveta<-sjstats::eta_sq(res2)[2]
aoveta

### Oneway Anova for y=G_SC and x=EDU_MOTHER (groups: 0, Complete primary, Complete professional education, Complete Secundary, Complete technique or technology, Incomplete primary, Incomplete Professional Education, Incomplete Secundary, Incomplete technical or technological, Ninguno, Not sure, Postgraduate education)

Omega squared: 95% CI = [.07; .08], point estimate = .07
Eta Squared: 95% CI = [.07; .08], point estimate = .08

                                        SS    Df       MS     F     p
Between groups (error + effect)  501803.16    11 45618.47 92.31 <.001
Within groups (error only)      6127453.66 12399   494.19            


### Post hoc test: games-howell

                                                                          diff
Complete primary-0                                                        0.41
Complete professional education-0                                        13.91
Complete Secundary-0                                                      3.54
Complete technique or technology-0                                        8.31
Incomplete primary-0                                                     -0.08
Incomplete Professional Education-0                                      11.75
Incomplete Secundary-0                                                    0.74
Incomplete technical or technological-0                                   6.95
Ninguno-0                                                                -5.22
Not sure-0                                                                4.48
Postgraduate education-0                                                 20.71
Complete professional education-Complete primary                         13.51
Complete Secundary-Complete primary                                       3.13
Complete technique or technology-Complete primary                         7.91
Incomplete primary-Complete primary                                      -0.48
Incomplete Professional Education-Complete primary                       11.35
Incomplete Secundary-Complete primary                                     0.34
Incomplete technical or technological-Complete primary                    6.54
Ninguno-Complete primary                                                 -5.63
Not sure-Complete primary                                                 4.07
Postgraduate education-Complete primary                                  20.30
Complete Secundary-Complete professional education                      -10.37
Complete technique or technology-Complete professional education         -5.60
Incomplete primary-Complete professional education                      -13.99
Incomplete Professional Education-Complete professional education        -2.16
Incomplete Secundary-Complete professional education                    -13.17
Incomplete technical or technological-Complete professional education    -6.97
Ninguno-Complete professional education                                 -19.14
Not sure-Complete professional education                                 -9.44
Postgraduate education-Complete professional education                    6.79
Complete technique or technology-Complete Secundary                       4.77
Incomplete primary-Complete Secundary                                    -3.62
Incomplete Professional Education-Complete Secundary                      8.21
Incomplete Secundary-Complete Secundary                                  -2.80
Incomplete technical or technological-Complete Secundary                  3.41
Ninguno-Complete Secundary                                               -8.76
Not sure-Complete Secundary                                               0.94
Postgraduate education-Complete Secundary                                17.17
Incomplete primary-Complete technique or technology                      -8.39
Incomplete Professional Education-Complete technique or technology        3.44
Incomplete Secundary-Complete technique or technology                    -7.57
Incomplete technical or technological-Complete technique or technology   -1.36
Ninguno-Complete technique or technology                                -13.54
Not sure-Complete technique or technology                                -3.83
Postgraduate education-Complete technique or technology                  12.39
Incomplete Professional Education-Incomplete primary                     11.83
Incomplete Secundary-Incomplete primary                                   0.82
Incomplete technical or technological-Incomplete primary                  7.03
Ninguno-Incomplete primary                                               -5.15
Not sure-Incomplete primary                                               4.55
Postgraduate education-Incomplete primary                                20.78
Incomplete Secundary-Incomplete Professional Education                  -11.01
Incomplete technical or technological-Incomplete Professional Education  -4.81
Ninguno-Incomplete Professional Education                               -16.98
Not sure-Incomplete Professional Education                               -7.28
Postgraduate education-Incomplete Professional Education                  8.95
Incomplete technical or technological-Incomplete Secundary                6.21
Ninguno-Incomplete Secundary                                             -5.97
Not sure-Incomplete Secundary                                             3.74
Postgraduate education-Incomplete Secundary                              19.96
Ninguno-Incomplete technical or technological                           -12.17
Not sure-Incomplete technical or technological                           -2.47
Postgraduate education-Incomplete technical or technological             13.76
Not sure-Ninguno                                                          9.70
Postgraduate education-Ninguno                                           25.93
Postgraduate education-Not sure                                          16.23
                                                                         ci.lo
Complete primary-0                                                       -3.87
Complete professional education-0                                        10.32
Complete Secundary-0                                                     -0.03
Complete technique or technology-0                                        4.50
Incomplete primary-0                                                     -4.58
Incomplete Professional Education-0                                       7.04
Incomplete Secundary-0                                                   -3.25
Incomplete technical or technological-0                                   1.99
Ninguno-0                                                               -22.31
Not sure-0                                                               -2.63
Postgraduate education-0                                                 16.67
Complete professional education-Complete primary                         10.49
Complete Secundary-Complete primary                                       0.14
Complete technique or technology-Complete primary                         4.63
Incomplete primary-Complete primary                                      -4.55
Incomplete Professional Education-Complete primary                        7.04
Incomplete Secundary-Complete primary                                    -3.15
Incomplete technical or technological-Complete primary                    1.97
Ninguno-Complete primary                                                -22.63
Not sure-Complete primary                                                -2.77
Postgraduate education-Complete primary                                  16.76
Complete Secundary-Complete professional education                      -12.25
Complete technique or technology-Complete professional education         -7.90
Incomplete primary-Complete professional education                      -17.33
Incomplete Professional Education-Complete professional education        -5.78
Incomplete Secundary-Complete professional education                    -15.77
Incomplete technical or technological-Complete professional education   -10.90
Ninguno-Complete professional education                                 -36.00
Not sure-Complete professional education                                -15.88
Postgraduate education-Complete professional education                    4.13
Complete technique or technology-Complete Secundary                       2.51
Incomplete primary-Complete Secundary                                    -6.93
Incomplete Professional Education-Complete Secundary                      4.62
Incomplete Secundary-Complete Secundary                                  -5.36
Incomplete technical or technological-Complete Secundary                 -0.50
Ninguno-Complete Secundary                                              -25.62
Not sure-Complete Secundary                                              -5.49
Postgraduate education-Complete Secundary                                14.54
Incomplete primary-Complete technique or technology                     -11.96
Incomplete Professional Education-Complete technique or technology       -0.39
Incomplete Secundary-Complete technique or technology                   -10.45
Incomplete technical or technological-Complete technique or technology   -5.49
Ninguno-Complete technique or technology                                -30.44
Not sure-Complete technique or technology                               -10.40
Postgraduate education-Complete technique or technology                   9.45
Incomplete Professional Education-Incomplete primary                      7.30
Incomplete Secundary-Incomplete primary                                  -2.95
Incomplete technical or technological-Incomplete primary                  2.24
Ninguno-Incomplete primary                                              -22.19
Not sure-Incomplete primary                                              -2.43
Postgraduate education-Incomplete primary                                16.97
Incomplete Secundary-Incomplete Professional Education                  -15.03
Incomplete technical or technological-Incomplete Professional Education  -9.79
Ninguno-Incomplete Professional Education                               -34.07
Not sure-Incomplete Professional Education                              -14.40
Postgraduate education-Incomplete Professional Education                  4.89
Incomplete technical or technological-Incomplete Secundary                1.91
Ninguno-Incomplete Secundary                                            -22.90
Not sure-Incomplete Secundary                                            -2.94
Postgraduate education-Incomplete Secundary                              16.78
Ninguno-Incomplete technical or technological                           -29.32
Not sure-Incomplete technical or technological                           -9.75
Postgraduate education-Incomplete technical or technological              9.41
Not sure-Ninguno                                                         -8.08
Postgraduate education-Ninguno                                            8.98
Postgraduate education-Not sure                                           9.53
                                                                         ci.hi
Complete primary-0                                                        4.69
Complete professional education-0                                        17.51
Complete Secundary-0                                                      7.11
Complete technique or technology-0                                       12.12
Incomplete primary-0                                                      4.43
Incomplete Professional Education-0                                      16.47
Incomplete Secundary-0                                                    4.73
Incomplete technical or technological-0                                  11.91
Ninguno-0                                                                11.86
Not sure-0                                                               11.58
Postgraduate education-0                                                 24.74
Complete professional education-Complete primary                         16.53
Complete Secundary-Complete primary                                       6.13
Complete technique or technology-Complete primary                        11.18
Incomplete primary-Complete primary                                       3.59
Incomplete Professional Education-Complete primary                       15.65
Incomplete Secundary-Complete primary                                     3.82
Incomplete technical or technological-Complete primary                   11.11
Ninguno-Complete primary                                                 11.37
Not sure-Complete primary                                                10.92
Postgraduate education-Complete primary                                  23.84
Complete Secundary-Complete professional education                       -8.50
Complete technique or technology-Complete professional education         -3.30
Incomplete primary-Complete professional education                      -10.65
Incomplete Professional Education-Complete professional education         1.46
Incomplete Secundary-Complete professional education                    -10.58
Incomplete technical or technological-Complete professional education    -3.03
Ninguno-Complete professional education                                  -2.28
Not sure-Complete professional education                                 -2.99
Postgraduate education-Complete professional education                    9.46
Complete technique or technology-Complete Secundary                       7.03
Incomplete primary-Complete Secundary                                    -0.30
Incomplete Professional Education-Complete Secundary                     11.81
Incomplete Secundary-Complete Secundary                                  -0.24
Incomplete technical or technological-Complete Secundary                  7.32
Ninguno-Complete Secundary                                                8.09
Not sure-Complete Secundary                                               7.37
Postgraduate education-Complete Secundary                                19.80
Incomplete primary-Complete technique or technology                      -4.82
Incomplete Professional Education-Complete technique or technology        7.28
Incomplete Secundary-Complete technique or technology                    -4.69
Incomplete technical or technological-Complete technique or technology    2.77
Ninguno-Complete technique or technology                                  3.37
Not sure-Complete technique or technology                                 2.73
Postgraduate education-Complete technique or technology                  15.34
Incomplete Professional Education-Incomplete primary                     16.36
Incomplete Secundary-Incomplete primary                                   4.58
Incomplete technical or technological-Incomplete primary                 11.81
Ninguno-Incomplete primary                                               11.90
Not sure-Incomplete primary                                              11.54
Postgraduate education-Incomplete primary                                24.60
Incomplete Secundary-Incomplete Professional Education                   -7.00
Incomplete technical or technological-Incomplete Professional Education   0.18
Ninguno-Incomplete Professional Education                                 0.11
Not sure-Incomplete Professional Education                               -0.16
Postgraduate education-Incomplete Professional Education                 13.01
Incomplete technical or technological-Incomplete Secundary               10.51
Ninguno-Incomplete Secundary                                             10.97
Not sure-Incomplete Secundary                                            10.41
Postgraduate education-Incomplete Secundary                              23.15
Ninguno-Incomplete technical or technological                             4.98
Not sure-Incomplete technical or technological                            4.81
Postgraduate education-Incomplete technical or technological             18.10
Not sure-Ninguno                                                         27.48
Postgraduate education-Ninguno                                           42.88
Postgraduate education-Not sure                                          22.93
                                                                            t
Complete primary-0                                                       0.31
Complete professional education-0                                       12.71
Complete Secundary-0                                                     3.26
Complete technique or technology-0                                       7.16
Incomplete primary-0                                                     0.06
Incomplete Professional Education-0                                      8.16
Incomplete Secundary-0                                                   0.61
Incomplete technical or technological-0                                  4.59
Ninguno-0                                                                1.07
Not sure-0                                                               2.08
Postgraduate education-0                                                16.81
Complete professional education-Complete primary                        14.63
Complete Secundary-Complete primary                                      3.43
Complete technique or technology-Complete primary                        7.90
Incomplete primary-Complete primary                                      0.39
Incomplete Professional Education-Complete primary                       8.64
Incomplete Secundary-Complete primary                                    0.32
Incomplete technical or technological-Complete primary                   4.70
Ninguno-Complete primary                                                 1.16
Not sure-Complete primary                                                1.96
Postgraduate education-Complete primary                                 18.76
Complete Secundary-Complete professional education                      18.12
Complete technique or technology-Complete professional education         7.97
Incomplete primary-Complete professional education                      13.73
Incomplete Professional Education-Complete professional education        1.96
Incomplete Secundary-Complete professional education                    16.62
Incomplete technical or technological-Complete professional education    5.82
Ninguno-Complete professional education                                  3.98
Not sure-Complete professional education                                 4.84
Postgraduate education-Complete professional education                   8.34
Complete technique or technology-Complete Secundary                      6.91
Incomplete primary-Complete Secundary                                    3.58
Incomplete Professional Education-Complete Secundary                     7.49
Incomplete Secundary-Complete Secundary                                  3.58
Incomplete technical or technological-Complete Secundary                 2.86
Ninguno-Complete Secundary                                               1.82
Not sure-Complete Secundary                                              0.48
Postgraduate education-Complete Secundary                               21.36
Incomplete primary-Complete technique or technology                      7.70
Incomplete Professional Education-Complete technique or technology       2.94
Incomplete Secundary-Complete technique or technology                    8.59
Incomplete technical or technological-Complete technique or technology   1.08
Ninguno-Complete technique or technology                                 2.81
Not sure-Complete technique or technology                                1.93
Postgraduate education-Complete technique or technology                 13.75
Incomplete Professional Education-Incomplete primary                     8.55
Incomplete Secundary-Incomplete primary                                  0.71
Incomplete technical or technological-Incomplete primary                 4.82
Ninguno-Incomplete primary                                               1.06
Not sure-Incomplete primary                                              2.15
Postgraduate education-Incomplete primary                               17.85
Incomplete Secundary-Incomplete Professional Education                   8.98
Incomplete technical or technological-Incomplete Professional Education  3.16
Ninguno-Incomplete Professional Education                                3.47
Not sure-Incomplete Professional Education                               3.37
Postgraduate education-Incomplete Professional Education                 7.22
Incomplete technical or technological-Incomplete Secundary               4.74
Ninguno-Incomplete Secundary                                             1.23
Not sure-Incomplete Secundary                                            1.85
Postgraduate education-Incomplete Secundary                             20.53
Ninguno-Incomplete technical or technological                            2.47
Not sure-Incomplete technical or technological                           1.12
Postgraduate education-Incomplete technical or technological            10.39
Not sure-Ninguno                                                         1.88
Postgraduate education-Ninguno                                           5.36
Postgraduate education-Not sure                                          8.00
                                                                             df
Complete primary-0                                                       863.46
Complete professional education-0                                        526.25
Complete Secundary-0                                                     511.38
Complete technique or technology-0                                       651.43
Incomplete primary-0                                                     870.98
Incomplete Professional Education-0                                      875.59
Incomplete Secundary-0                                                   752.31
Incomplete technical or technological-0                                  707.04
Ninguno-0                                                                 36.01
Not sure-0                                                               282.66
Postgraduate education-0                                                 776.64
Complete professional education-Complete primary                        1103.05
Complete Secundary-Complete primary                                     1061.44
Complete technique or technology-Complete primary                       1397.26
Incomplete primary-Complete primary                                     1172.69
Incomplete Professional Education-Complete primary                      1050.72
Incomplete Secundary-Complete primary                                   1524.05
Incomplete technical or technological-Complete primary                   706.89
Ninguno-Complete primary                                                  34.98
Not sure-Complete primary                                                248.83
Postgraduate education-Complete primary                                 1538.20
Complete Secundary-Complete professional education                      6140.15
Complete technique or technology-Complete professional education        3090.69
Incomplete primary-Complete professional education                       771.51
Incomplete Professional Education-Complete professional education        676.69
Incomplete Secundary-Complete professional education                    1911.62
Incomplete technical or technological-Complete professional education    438.46
Ninguno-Complete professional education                                   33.50
Not sure-Complete professional education                                 195.33
Postgraduate education-Complete professional education                  1749.34
Complete technique or technology-Complete Secundary                     2950.27
Incomplete primary-Complete Secundary                                    746.79
Incomplete Professional Education-Complete Secundary                     658.03
Incomplete Secundary-Complete Secundary                                 1824.24
Incomplete technical or technological-Complete Secundary                 428.01
Ninguno-Complete Secundary                                                33.45
Not sure-Complete Secundary                                              193.54
Postgraduate education-Complete Secundary                               1671.55
Incomplete primary-Complete technique or technology                      968.34
Incomplete Professional Education-Complete technique or technology       830.13
Incomplete Secundary-Complete technique or technology                   2272.42
Incomplete technical or technological-Complete technique or technology   527.88
Ninguno-Complete technique or technology                                  33.93
Not sure-Complete technique or technology                                210.85
Postgraduate education-Complete technique or technology                 2122.79
Incomplete Professional Education-Incomplete primary                    1022.95
Incomplete Secundary-Incomplete primary                                 1101.74
Incomplete technical or technological-Incomplete primary                 745.44
Ninguno-Incomplete primary                                                35.53
Not sure-Incomplete primary                                              268.11
Postgraduate education-Incomplete primary                               1129.29
Incomplete Secundary-Incomplete Professional Education                   946.32
Incomplete technical or technological-Incomplete Professional Education  775.91
Ninguno-Incomplete Professional Education                                 36.08
Not sure-Incomplete Professional Education                               287.25
Postgraduate education-Incomplete Professional Education                 972.96
Incomplete technical or technological-Incomplete Secundary               604.28
Ninguno-Incomplete Secundary                                              34.32
Not sure-Incomplete Secundary                                            224.94
Postgraduate education-Incomplete Secundary                             2042.05
Ninguno-Incomplete technical or technological                             36.72
Not sure-Incomplete technical or technological                           304.24
Postgraduate education-Incomplete technical or technological             623.66
Not sure-Ninguno                                                          44.04
Postgraduate education-Ninguno                                            34.43
Postgraduate education-Not sure                                          228.72
                                                                            p
Complete primary-0                                                      1.000
Complete professional education-0                                       <.001
Complete Secundary-0                                                     .054
Complete technique or technology-0                                      <.001
Incomplete primary-0                                                    1.000
Incomplete Professional Education-0                                     <.001
Incomplete Secundary-0                                                  1.000
Incomplete technical or technological-0                                 <.001
Ninguno-0                                                                .994
Not sure-0                                                               .640
Postgraduate education-0                                                <.001
Complete professional education-Complete primary                        <.001
Complete Secundary-Complete primary                                      .031
Complete technique or technology-Complete primary                       <.001
Incomplete primary-Complete primary                                     1.000
Incomplete Professional Education-Complete primary                      <.001
Incomplete Secundary-Complete primary                                   1.000
Incomplete technical or technological-Complete primary                  <.001
Ninguno-Complete primary                                                 .989
Not sure-Complete primary                                                .718
Postgraduate education-Complete primary                                 <.001
Complete Secundary-Complete professional education                      <.001
Complete technique or technology-Complete professional education        <.001
Incomplete primary-Complete professional education                      <.001
Incomplete Professional Education-Complete professional education        .723
Incomplete Secundary-Complete professional education                    <.001
Incomplete technical or technological-Complete professional education   <.001
Ninguno-Complete professional education                                  .015
Not sure-Complete professional education                                <.001
Postgraduate education-Complete professional education                  <.001
Complete technique or technology-Complete Secundary                     <.001
Incomplete primary-Complete Secundary                                    .019
Incomplete Professional Education-Complete Secundary                    <.001
Incomplete Secundary-Complete Secundary                                  .018
Incomplete technical or technological-Complete Secundary                 .158
Ninguno-Complete Secundary                                               .794
Not sure-Complete Secundary                                             1.000
Postgraduate education-Complete Secundary                               <.001
Incomplete primary-Complete technique or technology                     <.001
Incomplete Professional Education-Complete technique or technology       .128
Incomplete Secundary-Complete technique or technology                   <.001
Incomplete technical or technological-Complete technique or technology   .995
Ninguno-Complete technique or technology                                 .222
Not sure-Complete technique or technology                                .739
Postgraduate education-Complete technique or technology                 <.001
Incomplete Professional Education-Incomplete primary                    <.001
Incomplete Secundary-Incomplete primary                                 1.000
Incomplete technical or technological-Incomplete primary                <.001
Ninguno-Incomplete primary                                               .995
Not sure-Incomplete primary                                              .588
Postgraduate education-Incomplete primary                               <.001
Incomplete Secundary-Incomplete Professional Education                  <.001
Incomplete technical or technological-Incomplete Professional Education  .071
Ninguno-Incomplete Professional Education                                .053
Not sure-Incomplete Professional Education                               .040
Postgraduate education-Incomplete Professional Education                <.001
Incomplete technical or technological-Incomplete Secundary              <.001
Ninguno-Incomplete Secundary                                             .982
Not sure-Incomplete Secundary                                            .789
Postgraduate education-Incomplete Secundary                             <.001
Ninguno-Incomplete technical or technological                            .386
Not sure-Incomplete technical or technological                           .994
Postgraduate education-Incomplete technical or technological            <.001
Not sure-Ninguno                                                         .763
Postgraduate education-Ninguno                                          <.001
Postgraduate education-Not sure                                         <.001

92.3096977669474

2.39090206486709e-202

A sj_anova_stat: 1 × 1

	etasq
	<dbl>
1	0.07569524

next

# this should be a t-test actually

# Anova test for mothers education and global grade 
# Check the statistical description of variable of interest
psych::describeBy(clean_data$G_SC, clean_data$OCC_FATHER, mat=TRUE)
# performing Barrets test for homogenity of variance
stats::bartlett.test(G_SC~ OCC_FATHER, data=clean_data)

A data.frame: 12 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	0	1	940	163.9085	22.93483	164.0	164.2819	25.2042	77	229	152	-0.149488369	-0.10950680	0.7480517
X12	2	Auxiliary or Administrative	1	372	161.3441	22.91364	162.0	161.8154	25.2042	91	214	123	-0.190084814	-0.38983217	1.1880169
X13	3	Entrepreneur	1	472	168.6992	23.89260	169.0	169.3704	26.6868	91	230	139	-0.222013003	-0.45221210	1.0997459
X14	4	Executive	1	1077	169.7465	23.47002	172.0	170.6454	22.2390	37	243	206	-0.409934747	0.79598873	0.7151639
X15	5	Home	1	77	161.2078	22.24347	162.0	161.0317	19.2738	104	219	115	0.071955720	-0.12029853	2.5348789
X16	6	Independent	1	2907	158.7262	22.68670	158.0	158.7172	23.7216	81	233	152	-0.005740055	-0.10633722	0.4207738
X17	7	Independent professional	1	915	167.8350	23.67657	169.0	168.3670	25.2042	94	238	144	-0.186094045	-0.19047001	0.7827233
X18	8	Operator	1	1537	158.2062	21.73574	159.0	158.4752	22.2390	76	247	171	-0.101304354	0.09484946	0.5544183
X19	9	Other occupation	1	1087	160.1012	21.90085	160.0	160.0689	22.2390	76	240	164	-0.002787130	0.13229487	0.6642724
X110	10	Retired	1	532	165.1372	21.91702	166.5	165.8052	21.4977	107	225	118	-0.247991456	-0.21317309	0.9502235
X111	11	Small entrepreneur	1	692	161.0578	22.10715	161.0	160.9585	23.7216	93	246	153	0.063724597	-0.10223266	0.8403877
X112	12	Technical or professional level employee	1	1803	165.8159	23.44307	166.0	166.2758	23.7216	72	239	167	-0.171530354	-0.10964631	0.5520986

	Bartlett test of homogeneity of variances

data:  G_SC by OCC_FATHER
Bartlett's K-squared = 22.849, df = 11, p-value = 0.01856

# One-way Anova test 
anova_result<-userfriendlyscience::oneway(as.factor(clean_data$OCC_FATHER),y=clean_data$G_SC,posthoc='games-howell')
anova_result
# access values in order to get f-statisitc on nect step
res2<-stats::aov(G_SC~ OCC_FATHER, data = clean_data)
fstat<-summary(res2)[[1]][["F value"]][[1]]
fstat
# Get the p-value
anova_p_value<-summary(res2)[[1]][["Pr(>F)"]][[1]]
anova_p_value
# Calculating the effect
aoveta<-sjstats::eta_sq(res2)[2]
aoveta

### Oneway Anova for y=G_SC and x=OCC_FATHER (groups: 0, Auxiliary or Administrative, Entrepreneur, Executive, Home, Independent, Independent professional, Operator, Other occupation, Retired, Small entrepreneur, Technical or professional level employee)

Omega squared: 95% CI = [.02; .04], point estimate = .03
Eta Squared: 95% CI = [.03; .04], point estimate = .03

                                        SS    Df       MS     F     p
Between groups (error + effect)  203632.83    11 18512.08 35.72 <.001
Within groups (error only)      6425623.99 12399   518.24            


### Post hoc test: games-howell

                                                                       diff
Auxiliary or Administrative-0                                         -2.56
Entrepreneur-0                                                         4.79
Executive-0                                                            5.84
Home-0                                                                -2.70
Independent-0                                                         -5.18
Independent professional-0                                             3.93
Operator-0                                                            -5.70
Other occupation-0                                                    -3.81
Retired-0                                                              1.23
Small entrepreneur-0                                                  -2.85
Technical or professional level employee-0                             1.91
Entrepreneur-Auxiliary or Administrative                               7.36
Executive-Auxiliary or Administrative                                  8.40
Home-Auxiliary or Administrative                                      -0.14
Independent-Auxiliary or Administrative                               -2.62
Independent professional-Auxiliary or Administrative                   6.49
Operator-Auxiliary or Administrative                                  -3.14
Other occupation-Auxiliary or Administrative                          -1.24
Retired-Auxiliary or Administrative                                    3.79
Small entrepreneur-Auxiliary or Administrative                        -0.29
Technical or professional level employee-Auxiliary or Administrative   4.47
Executive-Entrepreneur                                                 1.05
Home-Entrepreneur                                                     -7.49
Independent-Entrepreneur                                              -9.97
Independent professional-Entrepreneur                                 -0.86
Operator-Entrepreneur                                                -10.49
Other occupation-Entrepreneur                                         -8.60
Retired-Entrepreneur                                                  -3.56
Small entrepreneur-Entrepreneur                                       -7.64
Technical or professional level employee-Entrepreneur                 -2.88
Home-Executive                                                        -8.54
Independent-Executive                                                -11.02
Independent professional-Executive                                    -1.91
Operator-Executive                                                   -11.54
Other occupation-Executive                                            -9.65
Retired-Executive                                                     -4.61
Small entrepreneur-Executive                                          -8.69
Technical or professional level employee-Executive                    -3.93
Independent-Home                                                      -2.48
Independent professional-Home                                          6.63
Operator-Home                                                         -3.00
Other occupation-Home                                                 -1.11
Retired-Home                                                           3.93
Small entrepreneur-Home                                               -0.15
Technical or professional level employee-Home                          4.61
Independent professional-Independent                                   9.11
Operator-Independent                                                  -0.52
Other occupation-Independent                                           1.38
Retired-Independent                                                    6.41
Small entrepreneur-Independent                                         2.33
Technical or professional level employee-Independent                   7.09
Operator-Independent professional                                     -9.63
Other occupation-Independent professional                             -7.73
Retired-Independent professional                                      -2.70
Small entrepreneur-Independent professional                           -6.78
Technical or professional level employee-Independent professional     -2.02
Other occupation-Operator                                              1.89
Retired-Operator                                                       6.93
Small entrepreneur-Operator                                            2.85
Technical or professional level employee-Operator                      7.61
Retired-Other occupation                                               5.04
Small entrepreneur-Other occupation                                    0.96
Technical or professional level employee-Other occupation              5.71
Small entrepreneur-Retired                                            -4.08
Technical or professional level employee-Retired                       0.68
Technical or professional level employee-Small entrepreneur            4.76
                                                                      ci.lo
Auxiliary or Administrative-0                                         -7.17
Entrepreneur-0                                                         0.43
Executive-0                                                            2.45
Home-0                                                               -11.57
Independent-0                                                         -7.99
Independent professional-0                                             0.38
Operator-0                                                            -8.75
Other occupation-0                                                    -7.08
Retired-0                                                             -2.73
Small entrepreneur-0                                                  -6.53
Technical or professional level employee-0                            -1.13
Entrepreneur-Auxiliary or Administrative                               2.05
Executive-Auxiliary or Administrative                                  3.85
Home-Auxiliary or Administrative                                      -9.48
Independent-Auxiliary or Administrative                               -6.76
Independent professional-Auxiliary or Administrative                   1.83
Operator-Auxiliary or Administrative                                  -7.44
Other occupation-Auxiliary or Administrative                          -5.71
Retired-Auxiliary or Administrative                                   -1.19
Small entrepreneur-Auxiliary or Administrative                        -5.06
Technical or professional level employee-Auxiliary or Administrative   0.17
Executive-Entrepreneur                                                -3.25
Home-Entrepreneur                                                    -16.73
Independent-Entrepreneur                                             -13.84
Independent professional-Entrepreneur                                 -5.29
Operator-Entrepreneur                                                -14.53
Other occupation-Entrepreneur                                        -12.81
Retired-Entrepreneur                                                  -8.32
Small entrepreneur-Entrepreneur                                      -12.18
Technical or professional level employee-Entrepreneur                 -6.92
Home-Executive                                                       -17.38
Independent-Executive                                                -13.74
Independent professional-Executive                                    -5.38
Operator-Executive                                                   -14.50
Other occupation-Executive                                           -12.84
Retired-Executive                                                     -8.50
Small entrepreneur-Executive                                         -12.30
Technical or professional level employee-Executive                    -6.89
Independent-Home                                                     -11.13
Independent professional-Home                                         -2.27
Operator-Home                                                        -11.73
Other occupation-Home                                                 -9.91
Retired-Home                                                          -5.13
Small entrepreneur-Home                                               -9.10
Technical or professional level employee-Home                         -4.12
Independent professional-Independent                                   6.20
Operator-Independent                                                  -2.80
Other occupation-Independent                                          -1.20
Retired-Independent                                                    3.00
Small entrepreneur-Independent                                        -0.75
Technical or professional level employee-Independent                   4.82
Operator-Independent professional                                    -12.77
Other occupation-Independent professional                            -11.09
Retired-Independent professional                                      -6.73
Small entrepreneur-Independent professional                          -10.54
Technical or professional level employee-Independent professional     -5.15
Other occupation-Operator                                             -0.94
Retired-Operator                                                       3.33
Small entrepreneur-Operator                                           -0.44
Technical or professional level employee-Operator                      5.05
Retired-Other occupation                                               1.24
Small entrepreneur-Other occupation                                   -2.55
Technical or professional level employee-Other occupation              2.89
Small entrepreneur-Retired                                            -8.23
Technical or professional level employee-Retired                      -2.92
Technical or professional level employee-Small entrepreneur            1.47
                                                                     ci.hi
Auxiliary or Administrative-0                                         2.04
Entrepreneur-0                                                        9.15
Executive-0                                                           9.22
Home-0                                                                6.17
Independent-0                                                        -2.37
Independent professional-0                                            7.47
Operator-0                                                           -2.66
Other occupation-0                                                   -0.53
Retired-0                                                             5.19
Small entrepreneur-0                                                  0.83
Technical or professional level employee-0                            4.95
Entrepreneur-Auxiliary or Administrative                             12.66
Executive-Auxiliary or Administrative                                12.95
Home-Auxiliary or Administrative                                      9.21
Independent-Auxiliary or Administrative                               1.52
Independent professional-Auxiliary or Administrative                 11.16
Operator-Auxiliary or Administrative                                  1.17
Other occupation-Auxiliary or Administrative                          3.22
Retired-Auxiliary or Administrative                                   8.78
Small entrepreneur-Auxiliary or Administrative                        4.48
Technical or professional level employee-Auxiliary or Administrative  8.77
Executive-Entrepreneur                                                5.35
Home-Entrepreneur                                                     1.74
Independent-Entrepreneur                                             -6.11
Independent professional-Entrepreneur                                 3.56
Operator-Entrepreneur                                                -6.45
Other occupation-Entrepreneur                                        -4.39
Retired-Entrepreneur                                                  1.20
Small entrepreneur-Entrepreneur                                      -3.11
Technical or professional level employee-Entrepreneur                 1.15
Home-Executive                                                        0.30
Independent-Executive                                                -8.31
Independent professional-Executive                                    1.56
Operator-Executive                                                   -8.58
Other occupation-Executive                                           -6.45
Retired-Executive                                                    -0.71
Small entrepreneur-Executive                                         -5.08
Technical or professional level employee-Executive                   -0.97
Independent-Home                                                      6.17
Independent professional-Home                                        15.53
Operator-Home                                                         5.72
Other occupation-Home                                                 7.70
Retired-Home                                                         12.99
Small entrepreneur-Home                                               8.80
Technical or professional level employee-Home                        13.33
Independent professional-Independent                                 12.02
Operator-Independent                                                  1.76
Other occupation-Independent                                          3.95
Retired-Independent                                                   9.82
Small entrepreneur-Independent                                        5.41
Technical or professional level employee-Independent                  9.36
Operator-Independent professional                                    -6.49
Other occupation-Independent professional                            -4.37
Retired-Independent professional                                      1.33
Small entrepreneur-Independent professional                          -3.02
Technical or professional level employee-Independent professional     1.12
Other occupation-Operator                                             4.73
Retired-Operator                                                     10.54
Small entrepreneur-Operator                                           6.15
Technical or professional level employee-Operator                    10.17
Retired-Other occupation                                              8.83
Small entrepreneur-Other occupation                                   4.46
Technical or professional level employee-Other occupation             8.54
Small entrepreneur-Retired                                            0.07
Technical or professional level employee-Retired                      4.28
Technical or professional level employee-Small entrepreneur           8.05
                                                                         t
Auxiliary or Administrative-0                                         1.83
Entrepreneur-0                                                        3.60
Executive-0                                                           5.64
Home-0                                                                1.02
Independent-0                                                         6.04
Independent professional-0                                            3.63
Operator-0                                                            6.12
Other occupation-0                                                    3.81
Retired-0                                                             1.02
Small entrepreneur-0                                                  2.53
Technical or professional level employee-0                            2.05
Entrepreneur-Auxiliary or Administrative                              4.54
Executive-Auxiliary or Administrative                                 6.06
Home-Auxiliary or Administrative                                      0.05
Independent-Auxiliary or Administrative                               2.08
Independent professional-Auxiliary or Administrative                  4.56
Operator-Auxiliary or Administrative                                  2.39
Other occupation-Auxiliary or Administrative                          0.91
Retired-Auxiliary or Administrative                                   2.49
Small entrepreneur-Auxiliary or Administrative                        0.20
Technical or professional level employee-Auxiliary or Administrative  3.41
Executive-Entrepreneur                                                0.80
Home-Entrepreneur                                                     2.71
Independent-Entrepreneur                                              8.47
Independent professional-Entrepreneur                                 0.64
Operator-Entrepreneur                                                 8.52
Other occupation-Entrepreneur                                         6.69
Retired-Entrepreneur                                                  2.45
Small entrepreneur-Entrepreneur                                       5.52
Technical or professional level employee-Entrepreneur                 2.34
Home-Executive                                                        3.24
Independent-Executive                                                13.28
Independent professional-Executive                                    1.80
Operator-Executive                                                   12.75
Other occupation-Executive                                            9.88
Retired-Executive                                                     3.88
Small entrepreneur-Executive                                          7.87
Technical or professional level employee-Executive                    4.35
Independent-Home                                                      0.97
Independent professional-Home                                         2.50
Operator-Home                                                         1.16
Other occupation-Home                                                 0.42
Retired-Home                                                          1.45
Small entrepreneur-Home                                               0.06
Technical or professional level employee-Home                         1.78
Independent professional-Independent                                 10.25
Operator-Independent                                                  0.75
Other occupation-Independent                                          1.75
Retired-Independent                                                   6.17
Small entrepreneur-Independent                                        2.48
Technical or professional level employee-Independent                 10.21
Operator-Independent professional                                    10.04
Other occupation-Independent professional                             7.53
Retired-Independent professional                                      2.19
Small entrepreneur-Independent professional                           5.90
Technical or professional level employee-Independent professional     2.11
Other occupation-Operator                                             2.19
Retired-Operator                                                      6.30
Small entrepreneur-Operator                                           2.83
Technical or professional level employee-Operator                     9.73
Retired-Other occupation                                              4.34
Small entrepreneur-Other occupation                                   0.89
Technical or professional level employee-Other occupation             6.62
Small entrepreneur-Retired                                            3.22
Technical or professional level employee-Retired                      0.62
Technical or professional level employee-Small entrepreneur           4.73
                                                                          df
Auxiliary or Administrative-0                                         681.20
Entrepreneur-0                                                        909.96
Executive-0                                                          1989.51
Home-0                                                                 89.76
Independent-0                                                        1576.21
Independent professional-0                                           1846.62
Operator-0                                                           1902.91
Other occupation-0                                                   1953.49
Retired-0                                                            1144.53
Small entrepreneur-0                                                 1518.35
Technical or professional level employee-0                           1940.55
Entrepreneur-Auxiliary or Administrative                              810.48
Executive-Auxiliary or Administrative                                 658.78
Home-Auxiliary or Administrative                                      111.95
Independent-Auxiliary or Administrative                               468.98
Independent professional-Auxiliary or Administrative                  708.78
Operator-Auxiliary or Administrative                                  543.96
Other occupation-Auxiliary or Administrative                          618.59
Retired-Auxiliary or Administrative                                   775.71
Small entrepreneur-Auxiliary or Administrative                        736.22
Technical or professional level employee-Auxiliary or Administrative  543.33
Executive-Entrepreneur                                                884.36
Home-Entrepreneur                                                     106.69
Independent-Entrepreneur                                              616.85
Independent professional-Entrepreneur                                 944.19
Operator-Entrepreneur                                                 726.44
Other occupation-Entrepreneur                                         829.49
Retired-Entrepreneur                                                  961.45
Small entrepreneur-Entrepreneur                                       958.83
Technical or professional level employee-Entrepreneur                 726.27
Home-Executive                                                         88.54
Independent-Executive                                                1867.05
Independent professional-Executive                                   1932.82
Operator-Executive                                                   2201.05
Other occupation-Executive                                           2148.82
Retired-Executive                                                    1124.83
Small entrepreneur-Executive                                         1536.67
Technical or professional level employee-Executive                   2261.14
Independent-Home                                                       80.24
Independent professional-Home                                          91.11
Operator-Home                                                          83.44
Other occupation-Home                                                  86.77
Retired-Home                                                           98.58
Small entrepreneur-Home                                                93.50
Technical or professional level employee-Home                          83.37
Independent professional-Independent                                 1479.74
Operator-Independent                                                 3245.87
Other occupation-Independent                                         2011.32
Retired-Independent                                                   754.36
Small entrepreneur-Independent                                       1064.97
Technical or professional level employee-Independent                 3724.21
Operator-Independent professional                                    1792.69
Other occupation-Independent professional                            1882.75
Retired-Independent professional                                     1180.35
Small entrepreneur-Independent professional                          1535.99
Technical or professional level employee-Independent professional    1821.08
Other occupation-Operator                                            2327.47
Retired-Operator                                                      917.32
Small entrepreneur-Operator                                          1311.61
Technical or professional level employee-Operator                    3314.53
Retired-Other occupation                                             1053.76
Small entrepreneur-Other occupation                                  1461.25
Technical or professional level employee-Other occupation            2411.19
Small entrepreneur-Retired                                           1147.20
Technical or professional level employee-Retired                      919.16
Technical or professional level employee-Small entrepreneur          1321.76
                                                                         p
Auxiliary or Administrative-0                                         .803
Entrepreneur-0                                                        .017
Executive-0                                                          <.001
Home-0                                                                .997
Independent-0                                                        <.001
Independent professional-0                                            .015
Operator-0                                                           <.001
Other occupation-0                                                    .008
Retired-0                                                             .997
Small entrepreneur-0                                                  .320
Technical or professional level employee-0                            .658
Entrepreneur-Auxiliary or Administrative                             <.001
Executive-Auxiliary or Administrative                                <.001
Home-Auxiliary or Administrative                                     1.000
Independent-Auxiliary or Administrative                               .639
Independent professional-Auxiliary or Administrative                 <.001
Operator-Auxiliary or Administrative                                  .412
Other occupation-Auxiliary or Administrative                          .999
Retired-Auxiliary or Administrative                                   .346
Small entrepreneur-Auxiliary or Administrative                       1.000
Technical or professional level employee-Auxiliary or Administrative  .033
Executive-Entrepreneur                                               1.000
Home-Entrepreneur                                                     .235
Independent-Entrepreneur                                             <.001
Independent professional-Entrepreneur                                1.000
Operator-Entrepreneur                                                <.001
Other occupation-Entrepreneur                                        <.001
Retired-Entrepreneur                                                  .373
Small entrepreneur-Entrepreneur                                      <.001
Technical or professional level employee-Entrepreneur                 .447
Home-Executive                                                        .068
Independent-Executive                                                <.001
Independent professional-Executive                                    .817
Operator-Executive                                                   <.001
Other occupation-Executive                                           <.001
Retired-Executive                                                     .006
Small entrepreneur-Executive                                         <.001
Technical or professional level employee-Executive                    .001
Independent-Home                                                      .998
Independent professional-Home                                         .355
Operator-Home                                                         .991
Other occupation-Home                                                1.000
Retired-Home                                                          .950
Small entrepreneur-Home                                              1.000
Technical or professional level employee-Home                         .826
Independent professional-Independent                                 <.001
Operator-Independent                                                 1.000
Other occupation-Independent                                          .845
Retired-Independent                                                  <.001
Small entrepreneur-Independent                                        .353
Technical or professional level employee-Independent                 <.001
Operator-Independent professional                                    <.001
Other occupation-Independent professional                            <.001
Retired-Independent professional                                      .556
Small entrepreneur-Independent professional                          <.001
Technical or professional level employee-Independent professional     .617
Other occupation-Operator                                             .557
Retired-Operator                                                     <.001
Small entrepreneur-Operator                                           .168
Technical or professional level employee-Operator                    <.001
Retired-Other occupation                                              .001
Small entrepreneur-Other occupation                                   .999
Technical or professional level employee-Other occupation            <.001
Small entrepreneur-Retired                                            .060
Technical or professional level employee-Retired                     1.000
Technical or professional level employee-Small entrepreneur          <.001

35.7212355928171

3.55220398747246e-76

A sj_anova_stat: 1 × 1

	etasq
	<dbl>
1	0.03071729

Next

# Anova test for mothers education and global grade 
# Check the statistical description of variable of interest
psych::describeBy(clean_data$G_SC, clean_data$OCC_MOTHER, mat=TRUE)
# performing Barrets test for homogenity of variance
stats::bartlett.test(G_SC~ OCC_MOTHER, data=clean_data)

A data.frame: 12 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	0	1	313	157.1150	20.31939	158.0	157.8566	20.7564	77	208	131	-0.37754313	0.259157287	1.1485200
X12	2	Auxiliary or Administrative	1	846	163.8558	21.90945	166.0	164.3776	22.2390	95	229	134	-0.21648099	-0.344442268	0.7532625
X13	3	Entrepreneur	1	242	168.9339	24.81374	170.0	169.5825	28.1694	89	227	138	-0.24147788	-0.436063793	1.5950877
X14	4	Executive	1	794	169.5856	23.53261	171.0	170.0204	25.9455	75	242	167	-0.18639919	-0.184083411	0.8351412
X15	5	Home	1	4658	159.9298	22.84407	160.0	160.0531	23.7216	72	247	175	-0.05273373	-0.045290751	0.3347139
X16	6	Independent	1	1107	158.9512	22.45074	159.0	159.2232	23.7216	77	233	156	-0.08010661	-0.288794565	0.6747716
X17	7	Independent professional	1	715	170.1846	24.38428	172.0	171.1152	25.2042	37	238	201	-0.49894789	0.996417298	0.9119205
X18	8	Operator	1	684	160.4488	21.36619	159.5	160.2865	22.9803	101	219	118	0.05225616	-0.347121075	0.8169568
X19	9	Other occupation	1	607	158.9819	22.75587	159.0	158.9651	23.7216	98	240	142	0.07991981	-0.139678170	0.9236323
X110	10	Retired	1	158	169.7722	23.17584	169.5	170.8438	24.4629	91	223	132	-0.46242064	0.110083014	1.8437711
X111	11	Small entrepreneur	1	492	164.4248	21.76032	165.0	164.5685	22.2390	100	246	146	0.01335429	-0.027739453	0.9810311
X112	12	Technical or professional level employee	1	1795	166.8546	23.02491	168.0	167.2533	23.7216	76	236	160	-0.16428383	0.003402053	0.5434577

	Bartlett test of homogeneity of variances

data:  G_SC by OCC_MOTHER
Bartlett's K-squared = 30.83, df = 11, p-value = 0.001172

# One-way Anova test 
anova_result<-userfriendlyscience::oneway(as.factor(clean_data$OCC_MOTHER),y=clean_data$G_SC,posthoc='games-howell')
anova_result
# access values in order to get f-statisitc on nect step
res2<-stats::aov(G_SC~ OCC_MOTHER, data = clean_data)
fstat<-summary(res2)[[1]][["F value"]][[1]]
fstat
# Get the p-value
anova_p_value<-summary(res2)[[1]][["Pr(>F)"]][[1]]
anova_p_value
# Calculating the effect
aoveta<-sjstats::eta_sq(res2)[2]
aoveta

### Oneway Anova for y=G_SC and x=OCC_MOTHER (groups: 0, Auxiliary or Administrative, Entrepreneur, Executive, Home, Independent, Independent professional, Operator, Other occupation, Retired, Small entrepreneur, Technical or professional level employee)

Omega squared: 95% CI = [.02; .04], point estimate = .03
Eta Squared: 95% CI = [.02; .03], point estimate = .03

                                       SS    Df       MS     F     p
Between groups (error + effect) 201504.82    11 18318.62 35.34 <.001
Within groups (error only)        6427752 12399   518.41            


### Post hoc test: games-howell

                                                                       diff
Auxiliary or Administrative-0                                          6.74
Entrepreneur-0                                                        11.82
Executive-0                                                           12.47
Home-0                                                                 2.81
Independent-0                                                          1.84
Independent professional-0                                            13.07
Operator-0                                                             3.33
Other occupation-0                                                     1.87
Retired-0                                                             12.66
Small entrepreneur-0                                                   7.31
Technical or professional level employee-0                             9.74
Entrepreneur-Auxiliary or Administrative                               5.08
Executive-Auxiliary or Administrative                                  5.73
Home-Auxiliary or Administrative                                      -3.93
Independent-Auxiliary or Administrative                               -4.90
Independent professional-Auxiliary or Administrative                   6.33
Operator-Auxiliary or Administrative                                  -3.41
Other occupation-Auxiliary or Administrative                          -4.87
Retired-Auxiliary or Administrative                                    5.92
Small entrepreneur-Auxiliary or Administrative                         0.57
Technical or professional level employee-Auxiliary or Administrative   3.00
Executive-Entrepreneur                                                 0.65
Home-Entrepreneur                                                     -9.00
Independent-Entrepreneur                                              -9.98
Independent professional-Entrepreneur                                  1.25
Operator-Entrepreneur                                                 -8.49
Other occupation-Entrepreneur                                         -9.95
Retired-Entrepreneur                                                   0.84
Small entrepreneur-Entrepreneur                                       -4.51
Technical or professional level employee-Entrepreneur                 -2.08
Home-Executive                                                        -9.66
Independent-Executive                                                -10.63
Independent professional-Executive                                     0.60
Operator-Executive                                                    -9.14
Other occupation-Executive                                           -10.60
Retired-Executive                                                      0.19
Small entrepreneur-Executive                                          -5.16
Technical or professional level employee-Executive                    -2.73
Independent-Home                                                      -0.98
Independent professional-Home                                         10.25
Operator-Home                                                          0.52
Other occupation-Home                                                 -0.95
Retired-Home                                                           9.84
Small entrepreneur-Home                                                4.49
Technical or professional level employee-Home                          6.92
Independent professional-Independent                                  11.23
Operator-Independent                                                   1.50
Other occupation-Independent                                           0.03
Retired-Independent                                                   10.82
Small entrepreneur-Independent                                         5.47
Technical or professional level employee-Independent                   7.90
Operator-Independent professional                                     -9.74
Other occupation-Independent professional                            -11.20
Retired-Independent professional                                      -0.41
Small entrepreneur-Independent professional                           -5.76
Technical or professional level employee-Independent professional     -3.33
Other occupation-Operator                                             -1.47
Retired-Operator                                                       9.32
Small entrepreneur-Operator                                            3.98
Technical or professional level employee-Operator                      6.41
Retired-Other occupation                                              10.79
Small entrepreneur-Other occupation                                    5.44
Technical or professional level employee-Other occupation              7.87
Small entrepreneur-Retired                                            -5.35
Technical or professional level employee-Retired                      -2.92
Technical or professional level employee-Small entrepreneur            2.43
                                                                      ci.lo
Auxiliary or Administrative-0                                          2.23
Entrepreneur-0                                                         5.36
Executive-0                                                            7.81
Home-0                                                                -1.12
Independent-0                                                         -2.54
Independent professional-0                                             8.26
Operator-0                                                            -1.29
Other occupation-0                                                    -2.97
Retired-0                                                              5.50
Small entrepreneur-0                                                   2.36
Technical or professional level employee-0                             5.57
Entrepreneur-Auxiliary or Administrative                              -0.73
Executive-Auxiliary or Administrative                                  2.05
Home-Auxiliary or Administrative                                      -6.63
Independent-Auxiliary or Administrative                               -8.21
Independent professional-Auxiliary or Administrative                   2.46
Operator-Auxiliary or Administrative                                  -7.04
Other occupation-Auxiliary or Administrative                          -8.78
Retired-Auxiliary or Administrative                                   -0.67
Small entrepreneur-Auxiliary or Administrative                        -3.48
Technical or professional level employee-Auxiliary or Administrative  -0.04
Executive-Entrepreneur                                                -5.27
Home-Entrepreneur                                                    -14.38
Independent-Entrepreneur                                             -15.68
Independent professional-Entrepreneur                                 -4.79
Operator-Entrepreneur                                                -14.38
Other occupation-Entrepreneur                                        -16.01
Retired-Entrepreneur                                                  -7.18
Small entrepreneur-Entrepreneur                                      -10.66
Technical or professional level employee-Entrepreneur                 -7.63
Home-Executive                                                       -12.60
Independent-Executive                                                -14.15
Independent professional-Executive                                    -3.45
Operator-Executive                                                   -12.96
Other occupation-Executive                                           -14.68
Retired-Executive                                                     -6.50
Small entrepreneur-Executive                                          -9.38
Technical or professional level employee-Executive                    -5.99
Independent-Home                                                      -3.44
Independent professional-Home                                          7.07
Operator-Home                                                         -2.37
Other occupation-Home                                                 -4.17
Retired-Home                                                           3.63
Small entrepreneur-Home                                                1.09
Technical or professional level employee-Home                          4.84
Independent professional-Independent                                   7.52
Operator-Independent                                                  -1.97
Other occupation-Independent                                          -3.71
Retired-Independent                                                    4.33
Small entrepreneur-Independent                                         1.57
Technical or professional level employee-Independent                   5.07
Operator-Independent professional                                    -13.74
Other occupation-Independent professional                            -15.45
Retired-Independent professional                                      -7.20
Small entrepreneur-Independent professional                          -10.15
Technical or professional level employee-Independent professional     -6.81
Other occupation-Operator                                             -5.50
Retired-Operator                                                       2.66
Small entrepreneur-Operator                                           -0.21
Technical or professional level employee-Operator                      3.19
Retired-Other occupation                                               3.98
Small entrepreneur-Other occupation                                    1.03
Technical or professional level employee-Other occupation              4.36
Small entrepreneur-Retired                                           -12.24
Technical or professional level employee-Retired                      -9.28
Technical or professional level employee-Small entrepreneur           -1.25
                                                                     ci.hi
Auxiliary or Administrative-0                                        11.25
Entrepreneur-0                                                       18.28
Executive-0                                                          17.13
Home-0                                                                6.75
Independent-0                                                         6.21
Independent professional-0                                           17.88
Operator-0                                                            7.96
Other occupation-0                                                    6.70
Retired-0                                                            19.82
Small entrepreneur-0                                                 12.26
Technical or professional level employee-0                           13.91
Entrepreneur-Auxiliary or Administrative                             10.88
Executive-Auxiliary or Administrative                                 9.41
Home-Auxiliary or Administrative                                     -1.23
Independent-Auxiliary or Administrative                              -1.60
Independent professional-Auxiliary or Administrative                 10.20
Operator-Auxiliary or Administrative                                  0.23
Other occupation-Auxiliary or Administrative                         -0.97
Retired-Auxiliary or Administrative                                  12.50
Small entrepreneur-Auxiliary or Administrative                        4.62
Technical or professional level employee-Auxiliary or Administrative  6.04
Executive-Entrepreneur                                                6.57
Home-Entrepreneur                                                    -3.63
Independent-Entrepreneur                                             -4.28
Independent professional-Entrepreneur                                 7.29
Operator-Entrepreneur                                                -2.59
Other occupation-Entrepreneur                                        -3.89
Retired-Entrepreneur                                                  8.86
Small entrepreneur-Entrepreneur                                       1.64
Technical or professional level employee-Entrepreneur                 3.47
Home-Executive                                                       -6.71
Independent-Executive                                                -7.12
Independent professional-Executive                                    4.65
Operator-Executive                                                   -5.31
Other occupation-Executive                                           -6.53
Retired-Executive                                                     6.87
Small entrepreneur-Executive                                         -0.94
Technical or professional level employee-Executive                    0.53
Independent-Home                                                      1.49
Independent professional-Home                                        13.44
Operator-Home                                                         3.41
Other occupation-Home                                                 2.27
Retired-Home                                                         16.05
Small entrepreneur-Home                                               7.90
Technical or professional level employee-Home                         9.01
Independent professional-Independent                                 14.95
Operator-Independent                                                  4.97
Other occupation-Independent                                          3.78
Retired-Independent                                                  17.31
Small entrepreneur-Independent                                        9.37
Technical or professional level employee-Independent                 10.74
Operator-Independent professional                                    -5.73
Other occupation-Independent professional                            -6.95
Retired-Independent professional                                      6.38
Small entrepreneur-Independent professional                          -1.37
Technical or professional level employee-Independent professional     0.15
Other occupation-Operator                                             2.57
Retired-Operator                                                     15.98
Small entrepreneur-Operator                                           8.16
Technical or professional level employee-Operator                     9.62
Retired-Other occupation                                             17.60
Small entrepreneur-Other occupation                                   9.86
Technical or professional level employee-Other occupation            11.38
Small entrepreneur-Retired                                            1.54
Technical or professional level employee-Retired                      3.45
Technical or professional level employee-Small entrepreneur           6.11
                                                                         t
Auxiliary or Administrative-0                                         4.91
Entrepreneur-0                                                        6.01
Executive-0                                                           8.78
Home-0                                                                2.35
Independent-0                                                         1.38
Independent professional-0                                            8.91
Operator-0                                                            2.37
Other occupation-0                                                    1.27
Retired-0                                                             5.83
Small entrepreneur-0                                                  4.84
Technical or professional level employee-0                            7.67
Entrepreneur-Auxiliary or Administrative                              2.88
Executive-Auxiliary or Administrative                                 5.09
Home-Auxiliary or Administrative                                      4.76
Independent-Auxiliary or Administrative                               4.85
Independent professional-Auxiliary or Administrative                  5.35
Operator-Auxiliary or Administrative                                  3.07
Other occupation-Auxiliary or Administrative                          4.09
Retired-Auxiliary or Administrative                                   2.97
Small entrepreneur-Auxiliary or Administrative                        0.46
Technical or professional level employee-Auxiliary or Administrative  3.23
Executive-Entrepreneur                                                0.36
Home-Entrepreneur                                                     5.52
Independent-Entrepreneur                                              5.76
Independent professional-Entrepreneur                                 0.68
Operator-Entrepreneur                                                 4.73
Other occupation-Entrepreneur                                         5.40
Retired-Entrepreneur                                                  0.34
Small entrepreneur-Entrepreneur                                       2.41
Technical or professional level employee-Entrepreneur                 1.23
Home-Executive                                                       10.73
Independent-Executive                                                 9.90
Independent professional-Executive                                    0.48
Operator-Executive                                                    7.82
Other occupation-Executive                                            8.52
Retired-Executive                                                     0.09
Small entrepreneur-Executive                                          4.01
Technical or professional level employee-Executive                    2.74
Independent-Home                                                      1.30
Independent professional-Home                                        10.56
Operator-Home                                                         0.59
Other occupation-Home                                                 0.96
Retired-Home                                                          5.25
Small entrepreneur-Home                                               4.34
Technical or professional level employee-Home                        10.85
Independent professional-Independent                                  9.90
Operator-Independent                                                  1.41
Other occupation-Independent                                          0.03
Retired-Independent                                                   5.51
Small entrepreneur-Independent                                        4.60
Technical or professional level employee-Independent                  9.12
Operator-Independent professional                                     7.95
Other occupation-Independent professional                             8.63
Retired-Independent professional                                      0.20
Small entrepreneur-Independent professional                           4.30
Technical or professional level employee-Independent professional     3.14
Other occupation-Operator                                             1.19
Retired-Operator                                                      4.62
Small entrepreneur-Operator                                           3.11
Technical or professional level employee-Operator                     6.53
Retired-Other occupation                                              5.23
Small entrepreneur-Other occupation                                   4.04
Technical or professional level employee-Other occupation             7.35
Small entrepreneur-Retired                                            2.56
Technical or professional level employee-Retired                      1.52
Technical or professional level employee-Small entrepreneur           2.17
                                                                          df
Auxiliary or Administrative-0                                         597.33
Entrepreneur-0                                                        460.14
Executive-0                                                           656.90
Home-0                                                                367.07
Independent-0                                                         546.20
Independent professional-0                                            706.66
Operator-0                                                            633.51
Other occupation-0                                                    696.15
Retired-0                                                             281.18
Small entrepreneur-0                                                  697.44
Technical or professional level employee-0                            463.32
Entrepreneur-Auxiliary or Administrative                              355.43
Executive-Auxiliary or Administrative                                1608.84
Home-Auxiliary or Administrative                                     1203.12
Independent-Auxiliary or Administrative                              1840.03
Independent professional-Auxiliary or Administrative                 1450.25
Operator-Auxiliary or Administrative                                 1475.80
Other occupation-Auxiliary or Administrative                         1275.53
Retired-Auxiliary or Administrative                                   212.68
Small entrepreneur-Auxiliary or Administrative                       1032.15
Technical or professional level employee-Auxiliary or Administrative 1732.53
Executive-Entrepreneur                                                382.50
Home-Entrepreneur                                                     262.66
Independent-Entrepreneur                                              332.65
Independent professional-Entrepreneur                                 409.52
Operator-Entrepreneur                                                 374.92
Other occupation-Entrepreneur                                         411.32
Retired-Entrepreneur                                                  351.64
Small entrepreneur-Entrepreneur                                       427.76
Technical or professional level employee-Entrepreneur                 299.66
Home-Executive                                                       1063.55
Independent-Executive                                                1659.30
Independent professional-Executive                                   1477.89
Operator-Executive                                                   1471.92
Other occupation-Executive                                           1325.10
Retired-Executive                                                     226.15
Small entrepreneur-Executive                                         1102.13
Technical or professional level employee-Executive                   1488.80
Independent-Home                                                     1692.90
Independent professional-Home                                         916.79
Operator-Home                                                         927.71
Other occupation-Home                                                 773.88
Retired-Home                                                          167.51
Small entrepreneur-Home                                               611.09
Technical or professional level employee-Home                        3233.91
Independent professional-Independent                                 1432.64
Operator-Independent                                                 1501.29
Other occupation-Independent                                         1233.04
Retired-Independent                                                   201.36
Small entrepreneur-Independent                                        969.17
Technical or professional level employee-Independent                 2387.01
Operator-Independent professional                                    1386.42
Other occupation-Independent professional                            1308.22
Retired-Independent professional                                      240.05
Small entrepreneur-Independent professional                          1127.31
Technical or professional level employee-Independent professional    1248.54
Other occupation-Operator                                            1247.59
Retired-Operator                                                      222.73
Small entrepreneur-Operator                                          1046.37
Technical or professional level employee-Operator                    1322.63
Retired-Other occupation                                              241.74
Small entrepreneur-Other occupation                                  1067.59
Technical or professional level employee-Other occupation            1055.50
Small entrepreneur-Retired                                            252.02
Technical or professional level employee-Retired                      185.34
Technical or professional level employee-Small entrepreneur           817.52
                                                                         p
Auxiliary or Administrative-0                                        <.001
Entrepreneur-0                                                       <.001
Executive-0                                                          <.001
Home-0                                                                .441
Independent-0                                                         .967
Independent professional-0                                           <.001
Operator-0                                                            .431
Other occupation-0                                                    .983
Retired-0                                                            <.001
Small entrepreneur-0                                                 <.001
Technical or professional level employee-0                           <.001
Entrepreneur-Auxiliary or Administrative                              .153
Executive-Auxiliary or Administrative                                <.001
Home-Auxiliary or Administrative                                     <.001
Independent-Auxiliary or Administrative                              <.001
Independent professional-Auxiliary or Administrative                 <.001
Operator-Auxiliary or Administrative                                  .092
Other occupation-Auxiliary or Administrative                          .003
Retired-Auxiliary or Administrative                                   .125
Small entrepreneur-Auxiliary or Administrative                       1.000
Technical or professional level employee-Auxiliary or Administrative  .057
Executive-Entrepreneur                                               1.000
Home-Entrepreneur                                                    <.001
Independent-Entrepreneur                                             <.001
Independent professional-Entrepreneur                                1.000
Operator-Entrepreneur                                                <.001
Other occupation-Entrepreneur                                        <.001
Retired-Entrepreneur                                                 1.000
Small entrepreneur-Entrepreneur                                       .403
Technical or professional level employee-Entrepreneur                 .986
Home-Executive                                                       <.001
Independent-Executive                                                <.001
Independent professional-Executive                                   1.000
Operator-Executive                                                   <.001
Other occupation-Executive                                           <.001
Retired-Executive                                                    1.000
Small entrepreneur-Executive                                          .004
Technical or professional level employee-Executive                    .207
Independent-Home                                                      .979
Independent professional-Home                                        <.001
Operator-Home                                                        1.000
Other occupation-Home                                                 .998
Retired-Home                                                         <.001
Small entrepreneur-Home                                               .001
Technical or professional level employee-Home                        <.001
Independent professional-Independent                                 <.001
Operator-Independent                                                  .961
Other occupation-Independent                                         1.000
Retired-Independent                                                  <.001
Small entrepreneur-Independent                                       <.001
Technical or professional level employee-Independent                 <.001
Operator-Independent professional                                    <.001
Other occupation-Independent professional                            <.001
Retired-Independent professional                                     1.000
Small entrepreneur-Independent professional                           .001
Technical or professional level employee-Independent professional     .075
Other occupation-Operator                                             .990
Retired-Operator                                                     <.001
Small entrepreneur-Operator                                           .080
Technical or professional level employee-Operator                    <.001
Retired-Other occupation                                             <.001
Small entrepreneur-Other occupation                                   .003
Technical or professional level employee-Other occupation            <.001
Small entrepreneur-Retired                                            .308
Technical or professional level employee-Retired                      .934
Technical or professional level employee-Small entrepreneur           .575

35.3362376681121

2.63991634857876e-75

A sj_anova_stat: 1 × 1

	etasq
	<dbl>
1	0.03039629

next

# Anova test for mothers education and global grade 
# Check the statistical description of variable of interest
psych::describeBy(clean_data$G_SC, clean_data$PEOPLE_HOUSE, mat=TRUE)
# performing Barrets test for homogenity of variance
stats::bartlett.test(G_SC~ PEOPLE_HOUSE, data=clean_data)

A data.frame: 13 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	0	1	21	158.6190	20.08601	156.0	158.9412	20.7564	116	196	80	-0.14713638	-0.660156309	4.3831258
X12	2	Eight	1	164	155.0244	21.35644	152.5	154.6591	21.4977	108	209	101	0.19309770	-0.529465255	1.6676578
X13	3	Five	1	2870	162.4021	22.80693	162.0	162.6215	23.7216	72	237	165	-0.10378400	-0.057447288	0.4257218
X14	4	Four	1	4767	163.6153	23.00514	164.0	163.8553	23.7216	76	247	171	-0.07614269	-0.166682274	0.3331979
X15	5	Nueve	1	74	155.8784	22.73971	154.5	155.5833	22.2390	99	201	102	0.11267907	-0.445440152	2.6434381
X16	6	Once	1	19	162.4737	20.21377	166.0	161.4706	13.3434	128	214	86	0.41386014	0.206381814	4.6373568
X17	7	One	1	13	163.3846	28.97280	156.0	161.3636	22.2390	129	220	91	0.75967603	-0.876379131	8.0356086
X18	8	Seven	1	372	159.0699	23.33144	158.0	159.0503	23.7216	78	236	158	-0.04154776	0.383376470	1.2096790
X19	9	Six	1	1090	160.1450	22.40464	161.0	160.3222	23.7216	91	228	137	-0.06556626	-0.271817747	0.6786170
X110	10	Ten	1	52	159.2115	24.80144	164.0	159.5952	24.4629	109	232	123	0.02280140	0.013636657	3.4393404
X111	11	Three	1	2345	163.2559	23.84228	164.0	163.6068	25.2042	37	242	205	-0.16418152	0.001982505	0.4923527
X112	12	Twelve or more	1	32	157.5312	18.68238	155.0	156.1154	18.5325	129	197	68	0.65355891	-0.435988799	3.3026091
X113	13	Two	1	592	165.4797	23.16861	167.0	166.1097	23.7216	76	243	167	-0.26618550	0.429206835	0.9522242

	Bartlett test of homogeneity of variances

data:  G_SC by PEOPLE_HOUSE
Bartlett's K-squared = 15.43, df = 12, p-value = 0.2188

# One-way Anova test 
anova_result<-userfriendlyscience::oneway(as.factor(clean_data$PEOPLE_HOUSE),y=clean_data$G_SC,posthoc='Tukey')
anova_result
# access values in order to get f-statisitc on nect step
res2<-stats::aov(G_SC~ PEOPLE_HOUSE, data = clean_data)
fstat<-summary(res2)[[1]][["F value"]][[1]]
fstat
# Get the p-value
anova_p_value<-summary(res2)[[1]][["Pr(>F)"]][[1]]
anova_p_value
# Calculating the effect
aoveta<-sjstats::eta_sq(res2)[2]
aoveta

### Oneway Anova for y=G_SC and x=PEOPLE_HOUSE (groups: 0, Eight, Five, Four, Nueve, Once, One, Seven, Six, Ten, Three, Twelve or more, Two)

Omega squared: 95% CI = [0; .01], point estimate = 0
Eta Squared: 95% CI = [0; .01], point estimate = .01

                                        SS    Df      MS    F     p
Between groups (error + effect)   36513.69    12 3042.81 5.72 <.001
Within groups (error only)      6592743.13 12398  531.76           


### Post hoc test: Tukey

                     diff  lwr    upr   p adj
Eight-0              -3.59 -21.3  14.11 1.000
Five-0               3.78  -12.95 20.52 1.000
Four-0               5     -11.71 21.71 .999 
Nueve-0              -2.74 -21.63 16.15 1.000
Once-0               3.85  -20.34 28.05 1.000
One-0                4.77  -22.2  31.73 1.000
Seven-0              0.45  -16.69 17.59 1.000
Six-0                1.53  -15.31 18.36 1.000
Ten-0                0.59  -19.16 20.35 1.000
Three-0              4.64  -12.11 21.38 .999 
Twelve or more-0     -1.09 -22.55 20.37 1.000
Two-0                6.86  -10.11 23.83 .982 
Five-Eight           7.38  1.24   13.51 .005 
Four-Eight           8.59  2.52   14.66 <.001
Nueve-Eight          0.85  -9.85  11.55 1.000
Once-Eight           7.45  -11.07 25.97 .983 
One-Eight            8.36  -13.65 30.38 .990 
Seven-Eight          4.05  -3.12  11.21 .812 
Six-Eight            5.12  -1.28  11.52 .280 
Ten-Eight            4.19  -7.97  16.35 .996 
Three-Eight          8.23  2.06   14.4  .001 
Twelve or more-Eight 2.51  -12.26 17.27 1.000
Two-Eight            10.46 3.71   17.2  <.001
Four-Five            1.21  -0.59  3.02  .571 
Nueve-Five           -6.52 -15.52 2.47  .442 
Once-Five            0.07  -17.52 17.66 1.000
One-Five             0.98  -20.26 22.22 1.000
Seven-Five           -3.33 -7.54  0.88  .297 
Six-Five             -2.26 -4.98  0.46  .226 
Ten-Five             -3.19 -13.88 7.5   .999 
Three-Five           0.85  -1.27  2.98  .983 
Twelve or more-Five  -4.87 -18.45 8.71  .994 
Two-Five             3.08  -0.37  6.53  .138 
Nueve-Four           -7.74 -16.69 1.21  .174 
Once-Four            -1.14 -18.71 16.42 1.000
One-Four             -0.23 -21.45 20.99 1.000
Seven-Four           -4.55 -8.66  -0.43 .016 
Six-Four             -3.47 -6.04  -0.91 .001 
Ten-Four             -4.4  -15.06 6.25  .979 
Three-Four           -0.36 -2.29  1.57  1.000
Twelve or more-Four  -6.08 -19.64 7.47  .959 
Two-Four             1.86  -1.47  5.19  .821 
Once-Nueve           6.6   -13.06 26.25 .997 
One-Nueve            7.51  -15.47 30.48 .997 
Seven-Nueve          3.19  -6.53  12.92 .997 
Six-Nueve            4.27  -4.91  13.45 .947 
Ten-Nueve            3.33  -10.49 17.16 1.000
Three-Nueve          7.38  -1.64  16.4  .247 
Twelve or more-Nueve 1.65  -14.51 17.82 1.000
Two-Nueve            9.6   0.18   19.02 .041 
One-Once             0.91  -26.59 28.41 1.000
Seven-Once           -3.4  -21.37 14.57 1.000
Six-Once             -2.33 -20.01 15.35 1.000
Ten-Once             -3.26 -23.74 17.22 1.000
Three-Once           0.78  -16.82 18.38 1.000
Twelve or more-Once  -4.94 -27.07 17.19 1.000
Two-Once             3.01  -14.8  20.81 1.000
Seven-One            -4.31 -25.87 17.24 1.000
Six-One              -3.24 -24.56 18.08 1.000
Ten-One              -4.17 -27.87 19.52 1.000
Three-One            -0.13 -21.38 21.12 1.000
Twelve or more-One   -5.85 -30.98 19.28 1.000
Two-One              2.1   -19.33 23.52 1.000
Six-Seven            1.08  -3.51  5.66  1.000
Ten-Seven            0.14  -11.17 11.45 1.000
Three-Seven          4.19  -0.08  8.45  .060 
Twelve or more-Seven -1.54 -15.61 12.54 1.000
Two-Seven            6.41  1.35   11.47 .002 
Ten-Six              -0.93 -11.78 9.91  1.000
Three-Six            3.11  0.31   5.91  .015 
Twelve or more-Six   -2.61 -16.32 11.09 1.000
Two-Six              5.33  1.43   9.24  <.001
Three-Ten            4.04  -6.67  14.76 .990 
Twelve or more-Ten   -1.68 -18.85 15.49 1.000
Two-Ten              6.27  -4.78  17.32 .808 
Twelve or more-Three -5.72 -19.32 7.87  .975 
Two-Three            2.22  -1.29  5.74  .667 
Two-Twelve or more   7.95  -5.92  21.82 .796 

5.72215973536719

6.0948246901056e-10

A sj_anova_stat: 1 × 1

	etasq
	<dbl>
1	0.005507962

NEXT

# Anova test for mothers education and global grade 
# Check the statistical description of variable of interest
psych::describeBy(clean_data$G_SC, clean_data$REVENUE, mat=TRUE)
# performing Barrets test for homogenity of variance
stats::bartlett.test(G_SC~ REVENUE, data=clean_data)

A data.frame: 8 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	0	1	279	169.7168	22.63700	172	170.7244	22.2390	37	228	191	-0.943347983	3.641999614	1.3552419
X12	2	10 or more LMMW	1	718	183.6727	20.72211	185	184.2622	19.2738	114	246	132	-0.280403866	0.326046072	0.7733424
X13	3	Between 1 and less than 2 LMMW	1	3873	156.7705	22.04578	157	156.7670	22.2390	75	237	162	-0.014011136	-0.033082696	0.3542433
X14	4	Between 2 and less than 3 LMMW	1	2783	160.9429	21.63347	162	161.2236	22.2390	72	247	175	-0.122777144	-0.096571942	0.4100810
X15	5	Between 3 and less than 5 LMMW	1	2239	165.3363	22.07567	167	165.7959	22.2390	91	238	147	-0.170770997	-0.206646615	0.4665377
X16	6	Between 5 and less than 7 LMMW	1	973	170.8602	21.78682	172	171.5212	23.7216	76	239	163	-0.310366669	0.352605142	0.6984535
X17	7	Between 7 and less than 10 LMMW	1	509	176.1768	19.96434	178	176.9487	19.2738	118	240	122	-0.290540077	0.008686752	0.8849039
X18	8	less than 1 LMMW	1	1037	153.3144	22.01468	153	153.2575	22.2390	81	226	145	0.003089345	-0.036601838	0.6836331

	Bartlett test of homogeneity of variances

data:  G_SC by REVENUE
Bartlett's K-squared = 14.006, df = 7, p-value = 0.05108

# One-way Anova test 
anova_result<-userfriendlyscience::oneway(as.factor(clean_data$REVENUE),y=clean_data$G_SC,posthoc='Tukey')
anova_result
# access values in order to get f-statisitc on nect step
res2<-stats::aov(G_SC~ REVENUE, data = clean_data)
fstat<-summary(res2)[[1]][["F value"]][[1]]
fstat
# Get the p-value
anova_p_value<-summary(res2)[[1]][["Pr(>F)"]][[1]]
anova_p_value
# Calculating the effect
aoveta<-sjstats::eta_sq(res2)[2]
aoveta

### Oneway Anova for y=G_SC and x=REVENUE (groups: 0, 10 or more LMMW, Between 1 and less than 2 LMMW, Between 2 and less than 3 LMMW, Between 3 and less than 5 LMMW, Between 5 and less than 7 LMMW, Between 7 and less than 10 LMMW, less than 1 LMMW)

Omega squared: 95% CI = [.1; .12], point estimate = .11
Eta Squared: 95% CI = [.1; .12], point estimate = .11

                                        SS    Df        MS      F     p
Between groups (error + effect)   738464.9     7 105494.99 222.12 <.001
Within groups (error only)      5890791.92 12403    474.95             


### Post hoc test: Tukey

                                                               diff   lwr   
10 or more LMMW-0                                              13.96  9.3   
Between 1 and less than 2 LMMW-0                               -12.95 -17.04
Between 2 and less than 3 LMMW-0                               -8.77  -12.92
Between 3 and less than 5 LMMW-0                               -4.38  -8.57 
Between 5 and less than 7 LMMW-0                               1.14   -3.34 
Between 7 and less than 10 LMMW-0                              6.46   1.54  
less than 1 LMMW-0                                             -16.4  -20.86
Between 1 and less than 2 LMMW-10 or more LMMW                 -26.9  -29.59
Between 2 and less than 3 LMMW-10 or more LMMW                 -22.73 -25.5 
Between 3 and less than 5 LMMW-10 or more LMMW                 -18.34 -21.17
Between 5 and less than 7 LMMW-10 or more LMMW                 -12.81 -16.06
Between 7 and less than 10 LMMW-10 or more LMMW                -7.5   -11.32
less than 1 LMMW-10 or more LMMW                               -30.36 -33.57
Between 2 and less than 3 LMMW-Between 1 and less than 2 LMMW  4.17   2.53  
Between 3 and less than 5 LMMW-Between 1 and less than 2 LMMW  8.57   6.81  
Between 5 and less than 7 LMMW-Between 1 and less than 2 LMMW  14.09  11.72 
Between 7 and less than 10 LMMW-Between 1 and less than 2 LMMW 19.41  16.29 
less than 1 LMMW-Between 1 and less than 2 LMMW                -3.46  -5.77 
Between 3 and less than 5 LMMW-Between 2 and less than 3 LMMW  4.39   2.52  
Between 5 and less than 7 LMMW-Between 2 and less than 3 LMMW  9.92   7.46  
Between 7 and less than 10 LMMW-Between 2 and less than 3 LMMW 15.23  12.05 
less than 1 LMMW-Between 2 and less than 3 LMMW                -7.63  -10.03
Between 5 and less than 7 LMMW-Between 3 and less than 5 LMMW  5.52   2.99  
Between 7 and less than 10 LMMW-Between 3 and less than 5 LMMW 10.84  7.6   
less than 1 LMMW-Between 3 and less than 5 LMMW                -12.02 -14.5 
Between 7 and less than 10 LMMW-Between 5 and less than 7 LMMW 5.32   1.7   
less than 1 LMMW-Between 5 and less than 7 LMMW                -17.55 -20.49
less than 1 LMMW-Between 7 and less than 10 LMMW               -22.86 -26.44
                                                               upr    p adj
10 or more LMMW-0                                              18.62  <.001
Between 1 and less than 2 LMMW-0                               -8.85  <.001
Between 2 and less than 3 LMMW-0                               -4.63  <.001
Between 3 and less than 5 LMMW-0                               -0.19  .033 
Between 5 and less than 7 LMMW-0                               5.63   .994 
Between 7 and less than 10 LMMW-0                              11.38  .002 
less than 1 LMMW-0                                             -11.95 <.001
Between 1 and less than 2 LMMW-10 or more LMMW                 -24.22 <.001
Between 2 and less than 3 LMMW-10 or more LMMW                 -19.96 <.001
Between 3 and less than 5 LMMW-10 or more LMMW                 -15.5  <.001
Between 5 and less than 7 LMMW-10 or more LMMW                 -9.56  <.001
Between 7 and less than 10 LMMW-10 or more LMMW                -3.67  <.001
less than 1 LMMW-10 or more LMMW                               -27.15 <.001
Between 2 and less than 3 LMMW-Between 1 and less than 2 LMMW  5.81   <.001
Between 3 and less than 5 LMMW-Between 1 and less than 2 LMMW  10.32  <.001
Between 5 and less than 7 LMMW-Between 1 and less than 2 LMMW  16.46  <.001
Between 7 and less than 10 LMMW-Between 1 and less than 2 LMMW 22.52  <.001
less than 1 LMMW-Between 1 and less than 2 LMMW                -1.15  <.001
Between 3 and less than 5 LMMW-Between 2 and less than 3 LMMW  6.27   <.001
Between 5 and less than 7 LMMW-Between 2 and less than 3 LMMW  12.38  <.001
Between 7 and less than 10 LMMW-Between 2 and less than 3 LMMW 18.42  <.001
less than 1 LMMW-Between 2 and less than 3 LMMW                -5.22  <.001
Between 5 and less than 7 LMMW-Between 3 and less than 5 LMMW  8.06   <.001
Between 7 and less than 10 LMMW-Between 3 and less than 5 LMMW 14.08  <.001
less than 1 LMMW-Between 3 and less than 5 LMMW                -9.54  <.001
Between 7 and less than 10 LMMW-Between 5 and less than 7 LMMW 8.93   <.001
less than 1 LMMW-Between 5 and less than 7 LMMW                -14.6  <.001
less than 1 LMMW-Between 7 and less than 10 LMMW               -19.29 <.001

222.118574541189

3.13612585256269e-312

A sj_anova_stat: 1 × 1

	etasq
	<dbl>
1	0.1113948

next

# this should be a t-test actually

# Anova test for mothers education and global grade 
# Check the statistical description of variable of interest
psych::describeBy(clean_data$G_SC, clean_data$SCHOOL_NAT, mat=TRUE)
# performing Barrets test for homogenity of variance
stats::bartlett.test(G_SC~ SCHOOL_NAT, data=clean_data)

A data.frame: 2 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	PRIVATE	1	6565	168.2158	22.82366	170	168.7379	23.7216	37	247	210	-0.20406097	0.02424670	0.2816877
X12	2	PUBLIC	1	5846	156.5281	21.83817	157	156.5667	22.2390	72	228	156	-0.05215938	-0.01912125	0.2856189

	Bartlett test of homogeneity of variances

data:  G_SC by SCHOOL_NAT
Bartlett's K-squared = 12.021, df = 1, p-value = 0.0005259

# One-way Anova test 
anova_result<-userfriendlyscience::oneway(as.factor(clean_data$SCHOOL_NAT),y=clean_data$G_SC,posthoc='Tukey')
anova_result
# access values in order to get f-statisitc on nect step
res2<-stats::aov(G_SC~ SCHOOL_NAT, data = clean_data)
fstat<-summary(res2)[[1]][["F value"]][[1]]
fstat
# Get the p-value
anova_p_value<-summary(res2)[[1]][["Pr(>F)"]][[1]]
anova_p_value
# Calculating the effect
aoveta<-sjstats::eta_sq(res2)[2]
aoveta

### Oneway Anova for y=G_SC and x=SCHOOL_NAT (groups: PRIVATE, PUBLIC)

Omega squared: 95% CI = [.06; .07], point estimate = .06
Eta Squared: 95% CI = [.06; .07], point estimate = .06

                                        SS    Df        MS      F     p
Between groups (error + effect)  422426.77     1 422426.77 844.54 <.001
Within groups (error only)      6206830.05 12409    500.19             


### Post hoc test: Tukey

               diff   lwr    upr   p adj
PUBLIC-PRIVATE -11.69 -12.48 -10.9 <.001

844.536381510154

1.08340646239093e-179

A sj_anova_stat: 1 × 1

	etasq
	<dbl>
1	0.06372159

NEXT

# Anova test for mothers education and global grade 
# Check the statistical description of variable of interest
psych::describeBy(clean_data$G_SC, clean_data$SCHOOL_TYPE, mat=TRUE)
# performing Barrets test for homogenity of variance
stats::bartlett.test(G_SC~ SCHOOL_TYPE, data=clean_data)

A data.frame: 4 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	ACADEMIC	1	7834	165.8518	23.25426	167	166.2980	23.7216	37	247	210	-0.17257495	-0.006371099	0.2627307
X12	2	Not apply	1	5	150.6000	27.73626	159	150.6000	29.6520	110	179	69	-0.37780465	-1.806172947	12.4040316
X13	3	TECHNICAL	1	1059	156.8640	21.83263	157	157.0471	22.2390	77	224	147	-0.08995029	-0.137644333	0.6709006
X14	4	TECHNICAL/ACADEMIC	1	3513	157.4851	21.84494	157	157.4742	22.2390	72	228	156	-0.02166700	-0.075022716	0.3685631

	Bartlett test of homogeneity of variances

data:  G_SC by SCHOOL_TYPE
Bartlett's K-squared = 22.139, df = 3, p-value = 6.103e-05

# One-way Anova test 
anova_result<-userfriendlyscience::oneway(as.factor(clean_data$SCHOOL_TYPE),y=clean_data$G_SC,posthoc='games-howell')
anova_result
# access values in order to get f-statisitc on nect step
res2<-stats::aov(G_SC~ SCHOOL_TYPE, data = clean_data)
fstat<-summary(res2)[[1]][["F value"]][[1]]
fstat
# Get the p-value
anova_p_value<-summary(res2)[[1]][["Pr(>F)"]][[1]]
anova_p_value
# Calculating the effect
aoveta<-sjstats::eta_sq(res2)[2]
aoveta

### Oneway Anova for y=G_SC and x=SCHOOL_TYPE (groups: ACADEMIC, Not apply, TECHNICAL, TECHNICAL/ACADEMIC)

Omega squared: 95% CI = [.03; .04], point estimate = .03
Eta Squared: 95% CI = [.03; .04], point estimate = .03

                                        SS    Df       MS     F     p
Between groups (error + effect)   210158.8     3 70052.93 135.4 <.001
Within groups (error only)      6419098.02 12407   517.38            


### Post hoc test: games-howell

                               diff  ci.lo ci.hi     t      df     p
Not apply-ACADEMIC           -15.25 -65.74 35.23  1.23    4.00  .643
TECHNICAL-ACADEMIC            -8.99 -10.84 -7.13 12.47 1402.93 <.001
TECHNICAL/ACADEMIC-ACADEMIC   -8.37  -9.53 -7.20 18.49 7159.30 <.001
TECHNICAL-Not apply            6.26 -44.16 56.69  0.50    4.02  .954
TECHNICAL/ACADEMIC-Not apply   6.89 -43.59 57.36  0.55    4.01  .940
TECHNICAL/ACADEMIC-TECHNICAL   0.62  -1.35  2.59  0.81 1745.07  .849

135.400134273997

2.56007096641928e-86

A sj_anova_stat: 1 × 1

	etasq
	<dbl>
1	0.03170171

clean_data <- filter_data

Building a MLR model

# making dummy variables to represent the categorical values. Starting with the simple 2 group variables
# Gender
clean_data$dummyGender = ifelse(clean_data$GENDER == "M", 0, ifelse(clean_data$GENDER == "F", 1, NA))
# internet
clean_data$dummyInternet = ifelse(clean_data$INTERNET == "Yes", 0, ifelse(clean_data$INTERNET == "No", 1, NA))
# TV
clean_data$dummyTV = ifelse(clean_data$TV == "Yes", 0, ifelse(clean_data$TV == "No", 1, NA))
# COMPUTER
clean_data$dummyComputer = ifelse(clean_data$COMPUTER == "Yes", 0, ifelse(clean_data$COMPUTER == "No", 1, NA))
# WASHING_MACHINE
clean_data$dummyWmachine = ifelse(clean_data$WASHING_MCH== "Yes", 0, ifelse(clean_data$WASHING_MCH == "No", 1, NA))
# MIC_OVEN
clean_data$dummyMicOven = ifelse(clean_data$MIC_OVEN == "Yes", 0, ifelse(clean_data$MIC_OVEN == "No", 1, NA))
# Car
clean_data$dummyCar = ifelse(clean_data$CAR == "Yes", 0, ifelse(clean_data$CAR == "No", 1, NA))
# DVD
clean_data$dummyDvd = ifelse(clean_data$DVD == "Yes", 0, ifelse(clean_data$DVD == "No", 1, NA))
# PHONE
clean_data$dummyPhone = ifelse(clean_data$PHONE == "Yes", 0, ifelse(clean_data$PHONE == "No", 1, NA))
# MOBILE
clean_data$dummyMobile = ifelse(clean_data$MOBILE == "Yes", 0, ifelse(clean_data$MOBILE == "No", 1, NA))
# SCHOOL_NAT
clean_data$dummySchoolN = ifelse(clean_data$SCHOOL_NAT == "PRIVATE", 0, ifelse(clean_data$SCHOOL_NAT == "PUBLIC", 1, NA))

psych::describeBy(clean_data$G_SC, clean_data$SCHOOL_TYPE, mat=TRUE)

A data.frame: 4 × 15

	item	group1	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<fct>	<fct>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
X11	1	ACADEMIC	1	7834	165.8518	23.25426	167	166.2980	23.7216	37	247	210	-0.17257495	-0.006371099	0.2627307
X12	2	Not apply	1	5	150.6000	27.73626	159	150.6000	29.6520	110	179	69	-0.37780465	-1.806172947	12.4040316
X13	3	TECHNICAL	1	1059	156.8640	21.83263	157	157.0471	22.2390	77	224	147	-0.08995029	-0.137644333	0.6709006
X14	4	TECHNICAL/ACADEMIC	1	3513	157.4851	21.84494	157	157.4742	22.2390	72	228	156	-0.02166700	-0.075022716	0.3685631

# removing all the null/missing/incorrect values
clean_data<- sqldf("select * from clean_data where PEOPLE_HOUSE !=0 or REVENUE !=0 or JOB !=0")

sqldf("select * from clean_data")

# dummy data for school type
clean_data$dummySchoolAca= ifelse(clean_data$SCHOOL_TYPE == "ACADEMIC", 1,0)
clean_data$dummySchoolTech= ifelse(clean_data$SCHOOL_TYPE == "TECHNICAL", 1,0)
clean_data$dummySchoolTechAca = ifelse(clean_data$SCHOOL_TYPE == "TECHNICAL/ACADEMIC", 1,0)

# dummy data for sisben
clean_data$dummySis1= ifelse(clean_data$SISBEN == "Level 1", 1,0)
clean_data$dummySis2= ifelse(clean_data$SISBEN == "Level 2", 1,0)
clean_data$dummySis3= ifelse(clean_data$SISBEN == "Level 3", 1,0)

#dummy data for job
clean_data$dummyJobNo= ifelse(clean_data$JOB == "No", 1,0)
clean_data$dummyJobPT= ifelse(clean_data$JOB == "Yes, less than 20 hours per week", 1,0)
clean_data$dummyJobFT= ifelse(clean_data$JOB == "Yes, 20 hours or more per week", 1,0)

# dummy data for revenue
clean_data$dummyRevenue1 = ifelse(clean_data$REVENUE == "less than 1 LMMW", 1,
                                  ifelse(clean_data$REVENUE == "Between 1 and less than 2 LMMW", 1,0)) 

clean_data$dummyRevenue2 = ifelse(clean_data$REVENUE == "Between 2 and less than 3 LMMW", 1,
                                  ifelse(clean_data$REVENUE == "Between 3 and less than 5 LMMW", 1,0)) 

clean_data$dummyRevenue3 = ifelse(clean_data$REVENUE == "Between 5 and less than 7 LMMW", 1,
                                  ifelse(clean_data$REVENUE == "Between 7 and less than 10 LMMW", 1,0))

# adding extra dummy variables
clean_data_v2$dummyFatherOCSmallEnt = ifelse(clean_data_v2$OCC_FATHER == "Small entrepreneur", 1,0)
clean_data_v2$dummyFatherOCTechOrProf = ifelse(clean_data_v2$OCC_FATHER == "Technical or professional level employee", 1,0)
clean_data_v2$dummyFatherOCOperator = ifelse(clean_data_v2$OCC_FATHER == "Operator", 1,0)
clean_data_v2$dummyFatherOCOther = ifelse(clean_data_v2$OCC_FATHER == "Other occupation", 1,0)
clean_data_v2$dummyFatherOCIndi = ifelse(clean_data_v2$OCC_FATHER == "Independent", 1,0)
clean_data_v2$dummyFatherOCENT = ifelse(clean_data_v2$OCC_FATHER == "Entrepreneur", 1,0)

# adding extra dummies
clean_data_v2$dummyEDUMotherIncProfEdu = ifelse(clean_data_v2$EDU_MOTHER == "Incomplete Professional Education", 1,0)
clean_data_v2$dummyEDUMotherPostGrad = ifelse(clean_data_v2$EDU_MOTHER == "Postgraduate education", 1,0)
clean_data_v2$dummyEDUMotherINCtech = ifelse(clean_data_v2$EDU_MOTHER == "Incomplete technical or technological", 1,0)
clean_data_v2$dummyEDUMotherCompProfEdu = ifelse(clean_data_v2$EDU_MOTHER == "Complete professional education", 1,0)

# adding extra dummies
clean_data_v2$dummySTtech = ifelse(clean_data_v2$SCHOOL_TYPE == "TECHNICAL", 1,0)
clean_data_v2$dummySTtechAca = ifelse(clean_data_v2$SCHOOL_TYPE == "TECHNICAL/ACADEMIC", 1,0)

sqldf("select distinct(EDU_MOTHER) from clean_data")

A data.frame: 12 × 1

EDU_MOTHER
<fct>
Complete technique or technology
Complete professional education
Not sure
Complete Secundary
Incomplete technical or technological
Incomplete primary
Incomplete Secundary
Incomplete Professional Education
Postgraduate education
Complete primary
0
Ninguno

# dummy variable for Father significant job
clean_data$dummyFather = ifelse(clean_data$OCC_FATHER == "Entrepreneur", 1,0)

# dummy variable for mother significant job
clean_data$dummyMOTHER = ifelse(clean_data$EDU_MOTHER == "Ninguno", 1,0)

# dummy data for more than one group
# people house
clean_data$dummyPhouseOne = ifelse(clean_data$PEOPLE_HOUSE == "One", 1,ifelse(clean_data$PEOPLE_HOUSE == "Once", 1,0) ) 
clean_data$dummyPhouse2t3 = ifelse(clean_data$PEOPLE_HOUSE == "Two", 1,ifelse(clean_data$PEOPLE_HOUSE == "Three", 1,0)) 
clean_data$dummyPhouseAbove3 = ifelse(clean_data$PEOPLE_HOUSE == "Four", 1,
                                      ifelse(clean_data$PEOPLE_HOUSE == "Five", 1,
                                            ifelse(clean_data$PEOPLE_HOUSE == "Six", 1,
                                                  ifelse(clean_data$PEOPLE_HOUSE == "Seven",1,
                                                        ifelse(clean_data$PEOPLE_HOUSE == "Eight",1,
                                                              ifelse(clean_data$PEOPLE_HOUSE == "Nueve",1,
                                                                    ifelse(clean_data$PEOPLE_HOUSE == "Ten",1,
                                                                          ifelse(clean_data$PEOPLE_HOUSE == "Twelve or more",1,0)))))))) 
#

head(clean_data)

A data.frame: 6 × 40

	GENDER	EDU_FATHER	EDU_MOTHER	OCC_FATHER	OCC_MOTHER	SISBEN	PEOPLE_HOUSE	INTERNET	TV	COMPUTER	⋯	dummySis3	dummyJobNo	dummyJobPT	dummyJobFT	dummyRevenue1	dummyRevenue2	dummyRevenue3	dummyPhouseOne	dummyPhouse2t3	dummyPhouseAbove3
	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	⋯	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
1	F	Incomplete Professional Education	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	0	1	0	0	1	0	0	0	1	0
2	F	Complete Secundary	Complete professional education	Entrepreneur	Independent professional	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	0	1	0	0	0	0	0	0	1	0
3	M	Not sure	Not sure	Independent	Home	Level 2	Five	No	No	Yes	⋯	0	0	0	1	1	0	0	0	0	1
4	F	Not sure	Not sure	Other occupation	Independent	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	0	1	0	0	0	1	0	0	1	0
5	M	Complete professional education	Complete professional education	Executive	Home	It is not classified by the SISBEN	One	Yes	Yes	Yes	⋯	0	1	0	0	0	0	1	1	0	0
6	F	Complete professional education	Complete professional education	Independent	Executive	It is not classified by the SISBEN	Three	Yes	Yes	Yes	⋯	0	1	0	0	0	0	0	0	1	0

# building the model baseline with all the variables of interest
colnames(clean_data)

1. 'GENDER'
2. 'EDU_FATHER'
3. 'EDU_MOTHER'
4. 'OCC_FATHER'
5. 'OCC_MOTHER'
6. 'SISBEN'
7. 'PEOPLE_HOUSE'
8. 'INTERNET'
9. 'TV'
10. 'COMPUTER'
11. 'WASHING_MCH'
12. 'MIC_OVEN'
13. 'CAR'
14. 'DVD'
15. 'PHONE'
16. 'MOBILE'
17. 'REVENUE'
18. 'JOB'
19. 'SCHOOL_NAT'
20. 'SCHOOL_TYPE'
21. 'MAT_S11'
22. 'CR_S11'
23. 'BIO_S11'
24. 'ENG_S11'
25. 'G_SC'
26. 'dummySchoolAca'
27. 'dummySchoolTech'
28. 'dummySchoolTechAca'
29. 'dummySis1'
30. 'dummySis2'
31. 'dummySis3'
32. 'dummyJobNo'
33. 'dummyJobPT'
34. 'dummyJobFT'
35. 'dummyRevenue1'
36. 'dummyRevenue2'
37. 'dummyRevenue3'
38. 'dummyPhouseOne'
39. 'dummyPhouse2t3'
40. 'dummyPhouseAbove3'

KEEP

baseline_model1<-lm(formula = G_SC ~ MAT_S11 + CR_S11+BIO_S11+ENG_S11+CC_S11+OCC_FATHER+OCC_MOTHER+EDU_FATHER+EDU_MOTHER+dummyJobNo+dummyJobPT+dummyJobFT+SCHOOL_TYPE+
                    dummyGender+dummyInternet+dummyTV+dummyComputer+dummyWmachine+dummyMicOven+
                    dummyCar+dummyDvd+dummyPhone+dummyMobile+dummySchoolN, data= clean_data_v2)

print("Anova test")
anova(baseline_model1)
print("Summary of model")
summary(baseline_model1)
print("model Info comparison")
stargazer(baseline_model1, type="text") #Tidy output of all the required stats
print("Beta values of the model")
lm.beta(baseline_model1)

[1] "Anova test"

A anova: 25 × 5

	Df	Sum Sq	Mean Sq	F value	Pr(>F)
	<int>	<dbl>	<dbl>	<dbl>	<dbl>
MAT_S11	1	1.055254e+06	1.055254e+06	7.112888e+03	0.000000e+00
CR_S11	1	3.907141e+05	3.907141e+05	2.633590e+03	0.000000e+00
BIO_S11	1	9.006354e+04	9.006354e+04	6.070690e+02	2.339244e-130
ENG_S11	1	1.997913e+05	1.997913e+05	1.346684e+03	1.686169e-277
CC_S11	1	2.907511e+04	2.907511e+04	1.959794e+02	3.922994e-44
OCC_FATHER	11	3.066180e+03	2.787436e+02	1.878858e+00	3.711561e-02
OCC_MOTHER	11	1.187735e+03	1.079759e+02	7.278062e-01	7.127441e-01
EDU_FATHER	11	2.732296e+03	2.483905e+02	1.674265e+00	7.256991e-02
EDU_MOTHER	11	2.159108e+03	1.962826e+02	1.323033e+00	2.040625e-01
dummyJobNo	1	2.508071e+01	2.508071e+01	1.690554e-01	6.809611e-01
dummyJobPT	1	2.046649e+02	2.046649e+02	1.379534e+00	2.402072e-01
dummyJobFT	1	2.724297e+00	2.724297e+00	1.836299e-02	8.922112e-01
SCHOOL_TYPE	3	2.344408e+02	7.814692e+01	5.267456e-01	6.638892e-01
dummyGender	1	1.020922e+02	1.020922e+02	6.881474e-01	4.068141e-01
dummyInternet	1	2.287789e+03	2.287789e+03	1.542073e+01	8.658952e-05
dummyTV	1	4.979514e-01	4.979514e-01	3.356418e-03	9.538018e-01
dummyComputer	1	1.380744e+02	1.380744e+02	9.306837e-01	3.347075e-01
dummyWmachine	1	2.203498e+02	2.203498e+02	1.485257e+00	2.229812e-01
dummyMicOven	1	1.183156e+03	1.183156e+03	7.975004e+00	4.751701e-03
dummyCar	1	4.656684e+02	4.656684e+02	3.138816e+00	7.647829e-02
dummyDvd	1	6.180823e+01	6.180823e+01	4.166154e-01	5.186448e-01
dummyPhone	1	1.776926e+00	1.776926e+00	1.197729e-02	9.128550e-01
dummyMobile	1	1.809224e+02	1.809224e+02	1.219499e+00	2.694843e-01
dummySchoolN	1	1.241939e+02	1.241939e+02	8.371232e-01	3.602418e-01
Residuals	10498	1.557462e+06	1.483580e+02	NA	NA

[1] "Summary of model"

Call:
lm(formula = G_SC ~ MAT_S11 + CR_S11 + BIO_S11 + ENG_S11 + CC_S11 + 
    OCC_FATHER + OCC_MOTHER + EDU_FATHER + EDU_MOTHER + dummyJobNo + 
    dummyJobPT + dummyJobFT + SCHOOL_TYPE + dummyGender + dummyInternet + 
    dummyTV + dummyComputer + dummyWmachine + dummyMicOven + 
    dummyCar + dummyDvd + dummyPhone + dummyMobile + dummySchoolN, 
    data = clean_data_v2)

Residuals:
    Min      1Q  Median      3Q     Max 
-55.666  -7.851   0.173   8.378  57.101 

Coefficients:
                                                    Estimate Std. Error t value
(Intercept)                                        68.173295   1.601855  42.559
MAT_S11                                             0.230582   0.017102  13.483
CR_S11                                              0.363196   0.020647  17.591
BIO_S11                                             0.309791   0.019636  15.776
ENG_S11                                             0.380858   0.012472  30.538
CC_S11                                              0.284625   0.020115  14.150
OCC_FATHERAuxiliary or Administrative              -1.334201   0.928778  -1.437
OCC_FATHEREntrepreneur                             -1.567015   0.890067  -1.761
OCC_FATHERExecutive                                 0.166967   0.731776   0.228
OCC_FATHERHome                                     -1.001237   1.673904  -0.598
OCC_FATHERIndependent                              -0.964521   0.688924  -1.400
OCC_FATHERIndependent professional                 -0.422282   0.751800  -0.562
OCC_FATHEROperator                                 -0.143719   0.734163  -0.196
OCC_FATHEROther occupation                          0.088894   0.766593   0.116
OCC_FATHERRetired                                  -0.331418   0.846422  -0.392
OCC_FATHERSmall entrepreneur                       -1.744433   0.819586  -2.128
OCC_FATHERTechnical or professional level employee -0.557076   0.699122  -0.797
OCC_MOTHERAuxiliary or Administrative              -0.432781   1.093140  -0.396
OCC_MOTHEREntrepreneur                             -1.089885   1.361844  -0.800
OCC_MOTHERExecutive                                -0.801416   1.110482  -0.722
OCC_MOTHERHome                                     -0.135516   0.970492  -0.140
OCC_MOTHERIndependent                              -0.616733   1.061872  -0.581
OCC_MOTHERIndependent professional                 -0.249606   1.118116  -0.223
OCC_MOTHEROperator                                 -0.527647   1.109819  -0.475
OCC_MOTHEROther occupation                         -0.978188   1.130701  -0.865
OCC_MOTHERRetired                                   0.768355   1.470343   0.523
OCC_MOTHERSmall entrepreneur                        0.388503   1.163111   0.334
OCC_MOTHERTechnical or professional level employee -0.051095   1.058201  -0.048
EDU_FATHERComplete primary                         -1.662498   1.370123  -1.213
EDU_FATHERComplete professional education          -2.268880   1.361259  -1.667
EDU_FATHERComplete Secundary                       -1.655619   1.344941  -1.231
EDU_FATHERComplete technique or technology         -1.591806   1.387632  -1.147
EDU_FATHERIncomplete primary                       -2.309450   1.304530  -1.770
EDU_FATHERIncomplete Professional Education        -0.864292   1.480128  -0.584
EDU_FATHERIncomplete Secundary                     -2.199381   1.365132  -1.611
EDU_FATHERIncomplete technical or technological    -0.944134   1.553942  -0.608
EDU_FATHERNinguno                                  -1.950475   1.801562  -1.083
EDU_FATHERNot sure                                 -3.388276   1.515139  -2.236
EDU_FATHERPostgraduate education                   -2.122944   1.400742  -1.516
EDU_MOTHERComplete primary                          1.378433   1.349085   1.022
EDU_MOTHERComplete professional education           1.368475   1.357901   1.008
EDU_MOTHERComplete Secundary                        1.366629   1.326819   1.030
EDU_MOTHERComplete technique or technology          0.924538   1.365528   0.677
EDU_MOTHERIncomplete primary                        1.092176   1.297420   0.842
EDU_MOTHERIncomplete Professional Education         2.248428   1.451253   1.549
EDU_MOTHERIncomplete Secundary                      1.308875   1.354862   0.966
EDU_MOTHERIncomplete technical or technological     0.461275   1.499414   0.308
EDU_MOTHERNinguno                                  -3.184204   2.739342  -1.162
EDU_MOTHERNot sure                                  1.116611   1.722479   0.648
EDU_MOTHERPostgraduate education                    2.308255   1.412678   1.634
dummyJobNo                                         -0.426737   1.250578  -0.341
dummyJobPT                                         -1.334427   1.514187  -0.881
dummyJobFT                                          0.035016   1.694534   0.021
SCHOOL_TYPENot apply                                5.112031   6.112446   0.836
SCHOOL_TYPETECHNICAL                                0.258697   0.449546   0.575
SCHOOL_TYPETECHNICAL/ACADEMIC                       0.002617   0.319142   0.008
dummyGender                                         0.194450   0.249346   0.780
dummyInternet                                      -0.866999   0.403968  -2.146
dummyTV                                             0.245051   0.416102   0.589
dummyComputer                                      -0.364791   0.417210  -0.874
dummyWmachine                                       0.291689   0.280791   1.039
dummyMicOven                                       -0.842564   0.301369  -2.796
dummyCar                                            0.558371   0.287275   1.944
dummyDvd                                           -0.197672   0.310909  -0.636
dummyPhone                                         -0.120312   0.599453  -0.201
dummyMobile                                        -0.313067   0.316907  -0.988
dummySchoolN                                       -0.296939   0.324543  -0.915
                                                   Pr(>|t|)    
(Intercept)                                         < 2e-16 ***
MAT_S11                                             < 2e-16 ***
CR_S11                                              < 2e-16 ***
BIO_S11                                             < 2e-16 ***
ENG_S11                                             < 2e-16 ***
CC_S11                                              < 2e-16 ***
OCC_FATHERAuxiliary or Administrative               0.15089    
OCC_FATHEREntrepreneur                              0.07834 .  
OCC_FATHERExecutive                                 0.81952    
OCC_FATHERHome                                      0.54976    
OCC_FATHERIndependent                               0.16153    
OCC_FATHERIndependent professional                  0.57434    
OCC_FATHEROperator                                  0.84480    
OCC_FATHEROther occupation                          0.90769    
OCC_FATHERRetired                                   0.69540    
OCC_FATHERSmall entrepreneur                        0.03332 *  
OCC_FATHERTechnical or professional level employee  0.42557    
OCC_MOTHERAuxiliary or Administrative               0.69218    
OCC_MOTHEREntrepreneur                              0.42355    
OCC_MOTHERExecutive                                 0.47051    
OCC_MOTHERHome                                      0.88895    
OCC_MOTHERIndependent                               0.56139    
OCC_MOTHERIndependent professional                  0.82335    
OCC_MOTHEROperator                                  0.63449    
OCC_MOTHEROther occupation                          0.38699    
OCC_MOTHERRetired                                   0.60129    
OCC_MOTHERSmall entrepreneur                        0.73837    
OCC_MOTHERTechnical or professional level employee  0.96149    
EDU_FATHERComplete primary                          0.22501    
EDU_FATHERComplete professional education           0.09559 .  
EDU_FATHERComplete Secundary                        0.21835    
EDU_FATHERComplete technique or technology          0.25135    
EDU_FATHERIncomplete primary                        0.07670 .  
EDU_FATHERIncomplete Professional Education         0.55928    
EDU_FATHERIncomplete Secundary                      0.10719    
EDU_FATHERIncomplete technical or technological     0.54348    
EDU_FATHERNinguno                                   0.27899    
EDU_FATHERNot sure                                  0.02535 *  
EDU_FATHERPostgraduate education                    0.12965    
EDU_MOTHERComplete primary                          0.30692    
EDU_MOTHERComplete professional education           0.31358    
EDU_MOTHERComplete Secundary                        0.30303    
EDU_MOTHERComplete technique or technology          0.49839    
EDU_MOTHERIncomplete primary                        0.39992    
EDU_MOTHERIncomplete Professional Education         0.12134    
EDU_MOTHERIncomplete Secundary                      0.33404    
EDU_MOTHERIncomplete technical or technological     0.75836    
EDU_MOTHERNinguno                                   0.24510    
EDU_MOTHERNot sure                                  0.51683    
EDU_MOTHERPostgraduate education                    0.10230    
dummyJobNo                                          0.73294    
dummyJobPT                                          0.37818    
dummyJobFT                                          0.98351    
SCHOOL_TYPENot apply                                0.40299    
SCHOOL_TYPETECHNICAL                                0.56499    
SCHOOL_TYPETECHNICAL/ACADEMIC                       0.99346    
dummyGender                                         0.43550    
dummyInternet                                       0.03188 *  
dummyTV                                             0.55593    
dummyComputer                                       0.38194    
dummyWmachine                                       0.29892    
dummyMicOven                                        0.00519 ** 
dummyCar                                            0.05196 .  
dummyDvd                                            0.52493    
dummyPhone                                          0.84093    
dummyMobile                                         0.32323    
dummySchoolN                                        0.36024    
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 12.18 on 10498 degrees of freedom
Multiple R-squared:  0.5332,	Adjusted R-squared:  0.5303 
F-statistic: 181.7 on 66 and 10498 DF,  p-value: < 2.2e-16

[1] "model Info comparison"

==============================================================================
                                                       Dependent variable:    
                                                   ---------------------------
                                                              G_SC            
------------------------------------------------------------------------------
MAT_S11                                                     0.231***          
                                                             (0.017)          
                                                                              
CR_S11                                                      0.363***          
                                                             (0.021)          
                                                                              
BIO_S11                                                     0.310***          
                                                             (0.020)          
                                                                              
ENG_S11                                                     0.381***          
                                                             (0.012)          
                                                                              
CC_S11                                                      0.285***          
                                                             (0.020)          
                                                                              
OCC_FATHERAuxiliary or Administrative                        -1.334           
                                                             (0.929)          
                                                                              
OCC_FATHEREntrepreneur                                       -1.567*          
                                                             (0.890)          
                                                                              
OCC_FATHERExecutive                                           0.167           
                                                             (0.732)          
                                                                              
OCC_FATHERHome                                               -1.001           
                                                             (1.674)          
                                                                              
OCC_FATHERIndependent                                        -0.965           
                                                             (0.689)          
                                                                              
OCC_FATHERIndependent professional                           -0.422           
                                                             (0.752)          
                                                                              
OCC_FATHEROperator                                           -0.144           
                                                             (0.734)          
                                                                              
OCC_FATHEROther occupation                                    0.089           
                                                             (0.767)          
                                                                              
OCC_FATHERRetired                                            -0.331           
                                                             (0.846)          
                                                                              
OCC_FATHERSmall entrepreneur                                -1.744**          
                                                             (0.820)          
                                                                              
OCC_FATHERTechnical or professional level employee           -0.557           
                                                             (0.699)          
                                                                              
OCC_MOTHERAuxiliary or Administrative                        -0.433           
                                                             (1.093)          
                                                                              
OCC_MOTHEREntrepreneur                                       -1.090           
                                                             (1.362)          
                                                                              
OCC_MOTHERExecutive                                          -0.801           
                                                             (1.110)          
                                                                              
OCC_MOTHERHome                                               -0.136           
                                                             (0.970)          
                                                                              
OCC_MOTHERIndependent                                        -0.617           
                                                             (1.062)          
                                                                              
OCC_MOTHERIndependent professional                           -0.250           
                                                             (1.118)          
                                                                              
OCC_MOTHEROperator                                           -0.528           
                                                             (1.110)          
                                                                              
OCC_MOTHEROther occupation                                   -0.978           
                                                             (1.131)          
                                                                              
OCC_MOTHERRetired                                             0.768           
                                                             (1.470)          
                                                                              
OCC_MOTHERSmall entrepreneur                                  0.389           
                                                             (1.163)          
                                                                              
OCC_MOTHERTechnical or professional level employee           -0.051           
                                                             (1.058)          
                                                                              
EDU_FATHERComplete primary                                   -1.662           
                                                             (1.370)          
                                                                              
EDU_FATHERComplete professional education                    -2.269*          
                                                             (1.361)          
                                                                              
EDU_FATHERComplete Secundary                                 -1.656           
                                                             (1.345)          
                                                                              
EDU_FATHERComplete technique or technology                   -1.592           
                                                             (1.388)          
                                                                              
EDU_FATHERIncomplete primary                                 -2.309*          
                                                             (1.305)          
                                                                              
EDU_FATHERIncomplete Professional Education                  -0.864           
                                                             (1.480)          
                                                                              
EDU_FATHERIncomplete Secundary                               -2.199           
                                                             (1.365)          
                                                                              
EDU_FATHERIncomplete technical or technological              -0.944           
                                                             (1.554)          
                                                                              
EDU_FATHERNinguno                                            -1.950           
                                                             (1.802)          
                                                                              
EDU_FATHERNot sure                                          -3.388**          
                                                             (1.515)          
                                                                              
EDU_FATHERPostgraduate education                             -2.123           
                                                             (1.401)          
                                                                              
EDU_MOTHERComplete primary                                    1.378           
                                                             (1.349)          
                                                                              
EDU_MOTHERComplete professional education                     1.368           
                                                             (1.358)          
                                                                              
EDU_MOTHERComplete Secundary                                  1.367           
                                                             (1.327)          
                                                                              
EDU_MOTHERComplete technique or technology                    0.925           
                                                             (1.366)          
                                                                              
EDU_MOTHERIncomplete primary                                  1.092           
                                                             (1.297)          
                                                                              
EDU_MOTHERIncomplete Professional Education                   2.248           
                                                             (1.451)          
                                                                              
EDU_MOTHERIncomplete Secundary                                1.309           
                                                             (1.355)          
                                                                              
EDU_MOTHERIncomplete technical or technological               0.461           
                                                             (1.499)          
                                                                              
EDU_MOTHERNinguno                                            -3.184           
                                                             (2.739)          
                                                                              
EDU_MOTHERNot sure                                            1.117           
                                                             (1.722)          
                                                                              
EDU_MOTHERPostgraduate education                              2.308           
                                                             (1.413)          
                                                                              
dummyJobNo                                                   -0.427           
                                                             (1.251)          
                                                                              
dummyJobPT                                                   -1.334           
                                                             (1.514)          
                                                                              
dummyJobFT                                                    0.035           
                                                             (1.695)          
                                                                              
SCHOOL_TYPENot apply                                          5.112           
                                                             (6.112)          
                                                                              
SCHOOL_TYPETECHNICAL                                          0.259           
                                                             (0.450)          
                                                                              
SCHOOL_TYPETECHNICAL/ACADEMIC                                 0.003           
                                                             (0.319)          
                                                                              
dummyGender                                                   0.194           
                                                             (0.249)          
                                                                              
dummyInternet                                               -0.867**          
                                                             (0.404)          
                                                                              
dummyTV                                                       0.245           
                                                             (0.416)          
                                                                              
dummyComputer                                                -0.365           
                                                             (0.417)          
                                                                              
dummyWmachine                                                 0.292           
                                                             (0.281)          
                                                                              
dummyMicOven                                                -0.843***         
                                                             (0.301)          
                                                                              
dummyCar                                                     0.558*           
                                                             (0.287)          
                                                                              
dummyDvd                                                     -0.198           
                                                             (0.311)          
                                                                              
dummyPhone                                                   -0.120           
                                                             (0.599)          
                                                                              
dummyMobile                                                  -0.313           
                                                             (0.317)          
                                                                              
dummySchoolN                                                 -0.297           
                                                             (0.325)          
                                                                              
Constant                                                    68.173***         
                                                             (1.602)          
                                                                              
------------------------------------------------------------------------------
Observations                                                 10,565           
R2                                                            0.533           
Adjusted R2                                                   0.530           
Residual Std. Error                                    12.180 (df = 10498)    
F Statistic                                        181.714*** (df = 66; 10498)
==============================================================================
Note:                                              *p<0.1; **p<0.05; ***p<0.01
[1] "Beta values of the model"

Call:
lm(formula = G_SC ~ MAT_S11 + CR_S11 + BIO_S11 + ENG_S11 + CC_S11 + 
    OCC_FATHER + OCC_MOTHER + EDU_FATHER + EDU_MOTHER + dummyJobNo + 
    dummyJobPT + dummyJobFT + SCHOOL_TYPE + dummyGender + dummyInternet + 
    dummyTV + dummyComputer + dummyWmachine + dummyMicOven + 
    dummyCar + dummyDvd + dummyPhone + dummyMobile + dummySchoolN, 
    data = clean_data_v2)

Standardized Coefficients::
                                       (Intercept) 
                                      0.0000000000 
                                           MAT_S11 
                                      0.1349718794 
                                            CR_S11 
                                      0.1761107827 
                                           BIO_S11 
                                      0.1668881173 
                                           ENG_S11 
                                      0.2811409340 
                                            CC_S11 
                                      0.1372714544 
             OCC_FATHERAuxiliary or Administrative 
                                     -0.0128858387 
                            OCC_FATHEREntrepreneur 
                                     -0.0163356765 
                               OCC_FATHERExecutive 
                                      0.0026293457 
                                    OCC_FATHERHome 
                                     -0.0043032191 
                             OCC_FATHERIndependent 
                                     -0.0230092764 
                OCC_FATHERIndependent professional 
                                     -0.0061320985 
                                OCC_FATHEROperator 
                                     -0.0026912574 
                        OCC_FATHEROther occupation 
                                      0.0014254657 
                                 OCC_FATHERRetired 
                                     -0.0037977320 
                      OCC_FATHERSmall entrepreneur 
                                     -0.0226646804 
OCC_FATHERTechnical or professional level employee 
                                     -0.0109529318 
             OCC_MOTHERAuxiliary or Administrative 
                                     -0.0061879306 
                            OCC_MOTHEREntrepreneur 
                                     -0.0081709910 
                               OCC_MOTHERExecutive 
                                     -0.0109442481 
                                    OCC_MOTHERHome 
                                     -0.0036948156 
                             OCC_MOTHERIndependent 
                                     -0.0099085897 
                OCC_MOTHERIndependent professional 
                                     -0.0031757491 
                                OCC_MOTHEROperator 
                                     -0.0068770452 
                        OCC_MOTHEROther occupation 
                                     -0.0117758644 
                                 OCC_MOTHERRetired 
                                      0.0047299756 
                      OCC_MOTHERSmall entrepreneur 
                                      0.0043531273 
OCC_MOTHERTechnical or professional level employee 
                                     -0.0010093210 
                        EDU_FATHERComplete primary 
                                     -0.0233759588 
         EDU_FATHERComplete professional education 
                                     -0.0545208386 
                      EDU_FATHERComplete Secundary 
                                     -0.0393124383 
        EDU_FATHERComplete technique or technology 
                                     -0.0263605442 
                      EDU_FATHERIncomplete primary 
                                     -0.0308868880 
       EDU_FATHERIncomplete Professional Education 
                                     -0.0088585066 
                    EDU_FATHERIncomplete Secundary 
                                     -0.0354030887 
   EDU_FATHERIncomplete technical or technological 
                                     -0.0078995594 
                                 EDU_FATHERNinguno 
                                     -0.0108869201 
                                EDU_FATHERNot sure 
                                     -0.0341691675 
                  EDU_FATHERPostgraduate education 
                                     -0.0327863704 
                        EDU_MOTHERComplete primary 
                                      0.0181609686 
         EDU_MOTHERComplete professional education 
                                      0.0329461528 
                      EDU_MOTHERComplete Secundary 
                                      0.0335131821 
        EDU_MOTHERComplete technique or technology 
                                      0.0170268978 
                      EDU_MOTHERIncomplete primary 
                                      0.0125022343 
       EDU_MOTHERIncomplete Professional Education 
                                      0.0250272029 
                    EDU_MOTHERIncomplete Secundary 
                                      0.0207043475 
   EDU_MOTHERIncomplete technical or technological 
                                      0.0043182261 
                                 EDU_MOTHERNinguno 
                                     -0.0090461977 
                                EDU_MOTHERNot sure 
                                      0.0072351315 
                  EDU_MOTHERPostgraduate education 
                                      0.0343217926 
                                        dummyJobNo 
                                     -0.0047972086 
                                        dummyJobPT 
                                     -0.0102829447 
                                        dummyJobFT 
                                      0.0002035667 
                              SCHOOL_TYPENot apply 
                                      0.0055960315 
                              SCHOOL_TYPETECHNICAL 
                                      0.0041183999 
                     SCHOOL_TYPETECHNICAL/ACADEMIC 
                                      0.0000666495 
                                       dummyGender 
                                      0.0053905509 
                                     dummyInternet 
                                     -0.0199924737 
                                           dummyTV 
                                      0.0048969413 
                                     dummyComputer 
                                     -0.0079107501 
                                     dummyWmachine 
                                      0.0079748504 
                                      dummyMicOven 
                                     -0.0219213300 
                                          dummyCar 
                                      0.0156709712 
                                          dummyDvd 
                                     -0.0047978406 
                                        dummyPhone 
                                     -0.0013714557 
                                       dummyMobile 
                                     -0.0079679658 
                                      dummySchoolN 
                                     -0.0083457212 

# baseline_model1<-lm(formula = G_SC ~ MAT_S11 + CR_S11+BIO_S11+ENG_S11+dummySchoolAca+dummySchoolTech
#                     +dummySchoolTechAca+dummySis1+dummySis2+dummySis3+
#                     dummyJobNo+dummyJobPT+dummyJobFT+dummyRevenue1+dummyRevenue2+dummyRevenue3
#                     +dummyPhouseOne+dummyPhouse2t3+dummyPhouseAbove3,data = clean_data)
# baseline_model1<-lm(formula = G_SC ~ MAT_S11 + CR_S11+BIO_S11+ENG_S11+CC_S11+SISBEN+dummyJobNo+dummyJobPT+dummyJobFT+SCHOOL_TYPE+
#                     dummyGender+dummyInternet+dummyTV+dummyComputer+dummyWmachine+dummyMicOven+
#                     dummyCar+dummyDvd+dummyPhone+dummyMobile+dummySchoolN, data= clean_data)

print("Anova test")
anova(baseline_model1)
print("Summary of model")
summary(baseline_model1)
print("model Info comparison")
stargazer(baseline_model1, type="text") #Tidy output of all the required stats
print("Beta values of the model")
lm.beta(baseline_model1)

[1] "Anova test"

A anova: 22 × 5

	Df	Sum Sq	Mean Sq	F value	Pr(>F)
	<int>	<dbl>	<dbl>	<dbl>	<dbl>
MAT_S11	1	2.748008e+06	2.748008e+06	1.318169e+04	0.000000e+00
CR_S11	1	7.185057e+05	7.185057e+05	3.446541e+03	0.000000e+00
BIO_S11	1	1.636865e+05	1.636865e+05	7.851741e+02	1.432633e-167
ENG_S11	1	3.436174e+05	3.436174e+05	1.648270e+03	0.000000e+00
CC_S11	1	6.035089e+04	6.035089e+04	2.894922e+02	3.433730e-64
SISBEN	5	6.296912e+03	1.259382e+03	6.041026e+00	1.364222e-05
dummyJobNo	1	1.355179e+01	1.355179e+01	6.500544e-02	7.987570e-01
dummyJobPT	1	1.109956e+02	1.109956e+02	5.324257e-01	4.656026e-01
dummyJobFT	1	2.333923e+01	2.333923e+01	1.119540e-01	7.379361e-01
SCHOOL_TYPE	3	1.221996e+02	4.073319e+01	1.953897e-01	8.995890e-01
dummyGender	1	3.927200e+02	3.927200e+02	1.883806e+00	1.699271e-01
dummyInternet	1	2.692090e+03	2.692090e+03	1.291346e+01	3.274933e-04
dummyTV	1	1.123653e+01	1.123653e+01	5.389957e-02	8.164154e-01
dummyComputer	1	1.946923e-03	1.946923e-03	9.339035e-06	9.975617e-01
dummyWmachine	1	3.663939e+02	3.663939e+02	1.757524e+00	1.849581e-01
dummyMicOven	1	1.346372e+03	1.346372e+03	6.458300e+00	1.105561e-02
dummyCar	1	7.174958e+02	7.174958e+02	3.441696e+00	6.359415e-02
dummyDvd	1	4.994948e+02	4.994948e+02	2.395985e+00	1.216726e-01
dummyPhone	1	7.038985e+01	7.038985e+01	3.376472e-01	5.612010e-01
dummyMobile	1	8.892987e+02	8.892987e+02	4.265803e+00	3.890762e-02
dummySchoolN	1	3.244447e+01	3.244447e+01	1.556302e-01	6.932188e-01
Residuals	12383	2.581504e+06	2.084716e+02	NA	NA

[1] "Summary of model"

Call:
lm(formula = G_SC ~ MAT_S11 + CR_S11 + BIO_S11 + ENG_S11 + CC_S11 + 
    SISBEN + dummyJobNo + dummyJobPT + dummyJobFT + SCHOOL_TYPE + 
    dummyGender + dummyInternet + dummyTV + dummyComputer + dummyWmachine + 
    dummyMicOven + dummyCar + dummyDvd + dummyPhone + dummyMobile + 
    dummySchoolN, data = clean_data)

Residuals:
     Min       1Q   Median       3Q      Max 
-145.898   -8.465    0.525    9.504   90.166 

Coefficients:
                                                Estimate Std. Error t value
(Intercept)                                     55.57081    3.38636  16.410
MAT_S11                                          0.28727    0.01803  15.931
CR_S11                                           0.39006    0.02106  18.525
BIO_S11                                          0.35222    0.02022  17.416
ENG_S11                                          0.45409    0.01326  34.238
CC_S11                                           0.34759    0.02021  17.203
SISBENEsta clasificada en otro Level del SISBEN -1.87997    3.79358  -0.496
SISBENIt is not classified by the SISBEN        -5.60299    3.50534  -1.598
SISBENLevel 1                                   -6.61089    3.50672  -1.885
SISBENLevel 2                                   -5.96428    3.50943  -1.700
SISBENLevel 3                                   -5.01857    3.54829  -1.414
dummyJobNo                                      -0.87831    1.37666  -0.638
dummyJobPT                                      -1.51485    1.66869  -0.908
dummyJobFT                                      -0.89032    1.85389  -0.480
SCHOOL_TYPENot apply                             2.07493    6.46465   0.321
SCHOOL_TYPETECHNICAL                             0.52050    0.49681   1.048
SCHOOL_TYPETECHNICAL/ACADEMIC                    0.17693    0.35169   0.503
dummyGender                                      0.35537    0.27257   1.304
dummyInternet                                   -0.86563    0.43905  -1.972
dummyTV                                          0.11681    0.45591   0.256
dummyComputer                                    0.11556    0.41253   0.280
dummyWmachine                                    0.39472    0.30526   1.293
dummyMicOven                                    -0.78326    0.32868  -2.383
dummyCar                                         0.62672    0.30774   2.037
dummyDvd                                        -0.51068    0.33997  -1.502
dummyPhone                                      -0.50682    0.67092  -0.755
dummyMobile                                     -0.71005    0.35120  -2.022
dummySchoolN                                    -0.14548    0.36876  -0.394
                                                Pr(>|t|)    
(Intercept)                                       <2e-16 ***
MAT_S11                                           <2e-16 ***
CR_S11                                            <2e-16 ***
BIO_S11                                           <2e-16 ***
ENG_S11                                           <2e-16 ***
CC_S11                                            <2e-16 ***
SISBENEsta clasificada en otro Level del SISBEN   0.6202    
SISBENIt is not classified by the SISBEN          0.1100    
SISBENLevel 1                                     0.0594 .  
SISBENLevel 2                                     0.0892 .  
SISBENLevel 3                                     0.1573    
dummyJobNo                                        0.5235    
dummyJobPT                                        0.3640    
dummyJobFT                                        0.6311    
SCHOOL_TYPENot apply                              0.7482    
SCHOOL_TYPETECHNICAL                              0.2948    
SCHOOL_TYPETECHNICAL/ACADEMIC                     0.6149    
dummyGender                                       0.1923    
dummyInternet                                     0.0487 *  
dummyTV                                           0.7978    
dummyComputer                                     0.7794    
dummyWmachine                                     0.1960    
dummyMicOven                                      0.0172 *  
dummyCar                                          0.0417 *  
dummyDvd                                          0.1331    
dummyPhone                                        0.4500    
dummyMobile                                       0.0432 *  
dummySchoolN                                      0.6932    
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 14.44 on 12383 degrees of freedom
Multiple R-squared:  0.6106,	Adjusted R-squared:  0.6097 
F-statistic: 719.1 on 27 and 12383 DF,  p-value: < 2.2e-16

[1] "model Info comparison"

===========================================================================
                                                    Dependent variable:    
                                                ---------------------------
                                                           G_SC            
---------------------------------------------------------------------------
MAT_S11                                                  0.287***          
                                                          (0.018)          
                                                                           
CR_S11                                                   0.390***          
                                                          (0.021)          
                                                                           
BIO_S11                                                  0.352***          
                                                          (0.020)          
                                                                           
ENG_S11                                                  0.454***          
                                                          (0.013)          
                                                                           
CC_S11                                                   0.348***          
                                                          (0.020)          
                                                                           
SISBENEsta clasificada en otro Level del SISBEN           -1.880           
                                                          (3.794)          
                                                                           
SISBENIt is not classified by the SISBEN                  -5.603           
                                                          (3.505)          
                                                                           
SISBENLevel 1                                             -6.611*          
                                                          (3.507)          
                                                                           
SISBENLevel 2                                             -5.964*          
                                                          (3.509)          
                                                                           
SISBENLevel 3                                             -5.019           
                                                          (3.548)          
                                                                           
dummyJobNo                                                -0.878           
                                                          (1.377)          
                                                                           
dummyJobPT                                                -1.515           
                                                          (1.669)          
                                                                           
dummyJobFT                                                -0.890           
                                                          (1.854)          
                                                                           
SCHOOL_TYPENot apply                                       2.075           
                                                          (6.465)          
                                                                           
SCHOOL_TYPETECHNICAL                                       0.520           
                                                          (0.497)          
                                                                           
SCHOOL_TYPETECHNICAL/ACADEMIC                              0.177           
                                                          (0.352)          
                                                                           
dummyGender                                                0.355           
                                                          (0.273)          
                                                                           
dummyInternet                                            -0.866**          
                                                          (0.439)          
                                                                           
dummyTV                                                    0.117           
                                                          (0.456)          
                                                                           
dummyComputer                                              0.116           
                                                          (0.413)          
                                                                           
dummyWmachine                                              0.395           
                                                          (0.305)          
                                                                           
dummyMicOven                                             -0.783**          
                                                          (0.329)          
                                                                           
dummyCar                                                  0.627**          
                                                          (0.308)          
                                                                           
dummyDvd                                                  -0.511           
                                                          (0.340)          
                                                                           
dummyPhone                                                -0.507           
                                                          (0.671)          
                                                                           
dummyMobile                                              -0.710**          
                                                          (0.351)          
                                                                           
dummySchoolN                                              -0.145           
                                                          (0.369)          
                                                                           
Constant                                                 55.571***         
                                                          (3.386)          
                                                                           
---------------------------------------------------------------------------
Observations                                              12,411           
R2                                                         0.611           
Adjusted R2                                                0.610           
Residual Std. Error                                 14.439 (df = 12383)    
F Statistic                                     719.123*** (df = 27; 12383)
===========================================================================
Note:                                           *p<0.1; **p<0.05; ***p<0.01
[1] "Beta values of the model"

Call:
lm(formula = G_SC ~ MAT_S11 + CR_S11 + BIO_S11 + ENG_S11 + CC_S11 + 
    SISBEN + dummyJobNo + dummyJobPT + dummyJobFT + SCHOOL_TYPE + 
    dummyGender + dummyInternet + dummyTV + dummyComputer + dummyWmachine + 
    dummyMicOven + dummyCar + dummyDvd + dummyPhone + dummyMobile + 
    dummySchoolN, data = clean_data)

Standardized Coefficients::
                                    (Intercept) 
                                    0.000000000 
                                        MAT_S11 
                                    0.147579501 
                                         CR_S11 
                                    0.169204063 
                                        BIO_S11 
                                    0.170022997 
                                        ENG_S11 
                                    0.280908137 
                                         CC_S11 
                                    0.152205081 
SISBENEsta clasificada en otro Level del SISBEN 
                                   -0.007126381 
       SISBENIt is not classified by the SISBEN 
                                   -0.118405886 
                                  SISBENLevel 1 
                                   -0.106364159 
                                  SISBENLevel 2 
                                   -0.097122281 
                                  SISBENLevel 3 
                                   -0.045944548 
                                     dummyJobNo 
                                   -0.007486865 
                                     dummyJobPT 
                                   -0.008839732 
                                     dummyJobFT 
                                   -0.003981171 
                           SCHOOL_TYPENot apply 
                                    0.001801640 
                           SCHOOL_TYPETECHNICAL 
                                    0.006291691 
                  SCHOOL_TYPETECHNICAL/ACADEMIC 
                                    0.003448614 
                                    dummyGender 
                                    0.007552026 
                                  dummyInternet 
                                   -0.015367396 
                                        dummyTV 
                                    0.001796871 
                                  dummyComputer 
                                    0.001922068 
                                  dummyWmachine 
                                    0.008292117 
                                   dummyMicOven 
                                   -0.015666827 
                                       dummyCar 
                                    0.013530841 
                                       dummyDvd 
                                   -0.009553720 
                                     dummyPhone 
                                   -0.004397698 
                                    dummyMobile 
                                   -0.013900086 
                                   dummySchoolN 
                                   -0.003141961 

# check for influencial outliers
cooksd<-sort(cooks.distance(baseline_model1))
# plotting the cooks model
plot(cooksd, pch="*", cex=2, main="Influential Obs by Cooks distance")  
abline(h = 4*mean(cooksd, na.rm=T), col="red")  # add cutoff line
text(x=1:length(cooksd)+1, y=cooksd, labels=ifelse(cooksd>4*mean(cooksd, na.rm=T),names(cooksd),""), col="red")  # add labels

# find the rows that are influential to observation
influential <- as.numeric(names(cooksd)[(cooksd > 4*mean(cooksd, na.rm=T))])  # influential row numbers
stem(influential)

  The decimal point is 3 digit(s) to the right of the |

   0 | 000011112222223344445555555666677777777788899999
   1 | 00000001111112223344444445555555666677777888999
   2 | 00000111111222223333334444555556666667777788888999999
   3 | 0000001111222223333334444444455555555556677777888899999
   4 | 000000001111111122222223333444445555556666666777788888999999999
   5 | 0000011233333445555566667777888889
   6 | 000111112222233334444445567777777899999
   7 | 00001112222233344455556778888999999
   8 | 01122223444555556777778899
   9 | 00001111222222344445555667777777888899
  10 | 1111222233334444555555566777788888999999
  11 | 000000112334445555666677788999
  12 | 000111111122333444

# Bonferonni p-value for most extreme obs
car::outlierTest(baseline_model1)

       rstudent unadjusted p-value Bonferroni p
3303   4.725867         2.3211e-06     0.024523
11451 -4.588100         4.5248e-06     0.047805

#Assess homocedasticity 
plot(baseline_model1,1)
plot(baseline_model1, 3)

#Create histogram and  density plot of the residuals
plot(density(resid(baseline_model1)))

#Create a QQ plotqqPlot(model, main="QQ Plot") #qq plot for studentized resid 
car::qqPlot(baseline_model1, main="QQ Plot") #qq plot for studentized resid

3303

2838

11451

9767

alias(baseline_model1 )

Model :
G_SC ~ MAT_S11 + CR_S11 + BIO_S11 + ENG_S11 + SISBEN + PEOPLE_HOUSE + 
    JOB + SCHOOL_TYPE + dummyGender + dummyInternet + dummyTV + 
    dummyComputer + dummyWmachine + dummyMicOven + dummyCar + 
    dummyDvd + dummyPhone + dummyMobile + dummySchoolN

Complete :
                (Intercept) MAT_S11 CR_S11 BIO_S11 ENG_S11
PEOPLE_HOUSETwo  0           0       0      0       0     
                SISBENEsta clasificada en otro Level del SISBEN
PEOPLE_HOUSETwo  1                                             
                SISBENIt is not classified by the SISBEN SISBENLevel 1
PEOPLE_HOUSETwo  1                                        1           
                SISBENLevel 2 SISBENLevel 3 PEOPLE_HOUSEEight PEOPLE_HOUSEFive
PEOPLE_HOUSETwo  1             1            -1                -1              
                PEOPLE_HOUSEFour PEOPLE_HOUSENueve PEOPLE_HOUSEOnce
PEOPLE_HOUSETwo -1               -1                -1              
                PEOPLE_HOUSEOne PEOPLE_HOUSESeven PEOPLE_HOUSESix
PEOPLE_HOUSETwo -1              -1                -1             
                PEOPLE_HOUSETen PEOPLE_HOUSEThree PEOPLE_HOUSETwelve or more
PEOPLE_HOUSETwo -1              -1                -1                        
                JOBNo JOBYes, 20 hours or more per week
PEOPLE_HOUSETwo  0     0                               
                JOBYes, less than 20 hours per week SCHOOL_TYPENot apply
PEOPLE_HOUSETwo  0                                   0                  
                SCHOOL_TYPETECHNICAL SCHOOL_TYPETECHNICAL/ACADEMIC dummyGender
PEOPLE_HOUSETwo  0                    0                             0         
                dummyInternet dummyTV dummyComputer dummyWmachine dummyMicOven
PEOPLE_HOUSETwo  0             0       0             0             0          
                dummyCar dummyDvd dummyPhone dummyMobile dummySchoolN
PEOPLE_HOUSETwo  0        0        0          0           0          

# #Calculate Collinearity, will not run as you have na's in summary
vifmodel<-car::vif(baseline_model1)
vifmodel
#Calculate tolerance
1/vifmodel

A matrix: 24 × 3 of type dbl

	GVIF	Df	GVIF^(1/(2*Df))
MAT_S11	2.254001	1	1.501333
CR_S11	2.254357	1	1.501452
BIO_S11	2.516803	1	1.586444
ENG_S11	1.906270	1	1.380678
CC_S11	2.116643	1	1.454869
OCC_FATHER	6.792342	11	1.090986
OCC_MOTHER	5.596277	11	1.081423
EDU_FATHER	23.559445	11	1.154439
EDU_MOTHER	22.365887	11	1.151714
dummyJobNo	4.445172	1	2.108358
dummyJobPT	3.062072	1	1.749878
dummyJobFT	2.182644	1	1.477377
SCHOOL_TYPE	1.494291	3	1.069233
dummyGender	1.074651	1	1.036654
dummyInternet	1.951649	1	1.397014
dummyTV	1.555057	1	1.247019
dummyComputer	1.841054	1	1.356854
dummyWmachine	1.325508	1	1.151307
dummyMicOven	1.382723	1	1.175892
dummyCar	1.462013	1	1.209137
dummyDvd	1.280792	1	1.131721
dummyPhone	1.050185	1	1.024785
dummyMobile	1.463173	1	1.209617
dummySchoolN	1.871326	1	1.367964

A matrix: 24 × 3 of type dbl

	GVIF	Df	GVIF^(1/(2*Df))
MAT_S11	0.44365551	1.00000000	0.6660747
CR_S11	0.44358548	1.00000000	0.6660221
BIO_S11	0.39732943	1.00000000	0.6303407
ENG_S11	0.52458455	1.00000000	0.7242821
CC_S11	0.47244628	1.00000000	0.6873473
OCC_FATHER	0.14722462	0.09090909	0.9166023
OCC_MOTHER	0.17869022	0.09090909	0.9247079
EDU_FATHER	0.04244582	0.09090909	0.8662213
EDU_MOTHER	0.04471095	0.09090909	0.8682708
dummyJobNo	0.22496316	1.00000000	0.4743028
dummyJobPT	0.32657627	1.00000000	0.5714685
dummyJobFT	0.45815998	1.00000000	0.6768752
SCHOOL_TYPE	0.66921356	0.33333333	0.9352494
dummyGender	0.93053490	1.00000000	0.9646424
dummyInternet	0.51238735	1.00000000	0.7158124
dummyTV	0.64306316	1.00000000	0.8019122
dummyComputer	0.54316716	1.00000000	0.7369988
dummyWmachine	0.75442752	1.00000000	0.8685779
dummyMicOven	0.72321080	1.00000000	0.8504180
dummyCar	0.68398830	1.00000000	0.8270359
dummyDvd	0.78076693	1.00000000	0.8836102
dummyPhone	0.95221359	1.00000000	0.9758143
dummyMobile	0.68344639	1.00000000	0.8267082
dummySchoolN	0.53438029	1.00000000	0.7310132

max(stdres(baseline_model1))
min(stdres(baseline_model1))

4.72107223099284

-4.58372471478061

Model 2 keep

baseline_model12<-lm(formula = G_SC ~ MAT_S11 + CR_S11+BIO_S11+ENG_S11+CC_S11
                    +dummyInternet+dummyWmachine+dummyMicOven+dummyCar+dummyMobile, data= clean_data_v2)

print("Anova test")
anova(baseline_model2)
print("Summary of model")
summary(baseline_model2)
print("model Info comparison")
stargazer(baseline_model2, type="text") #Tidy output of all the required stats
print("Beta values of the model")
lm.beta(baseline_model2)

[1] "Anova test"

A anova: 8 × 5

	Df	Sum Sq	Mean Sq	F value	Pr(>F)
	<int>	<dbl>	<dbl>	<dbl>	<dbl>
MAT_S11	1	2748007.843	2748007.8425	13165.79733	0.000000e+00
CC_S11	1	651325.502	651325.5016	3120.52223	0.000000e+00
CR_S11	1	217970.576	217970.5763	1044.30431	4.834606e-220
BIO_S11	1	105716.348	105716.3482	506.49055	5.764688e-110
ENG_S11	1	311148.112	311148.1125	1490.72100	4.532170e-308
dummyMobile	1	4010.579	4010.5786	19.21482	1.177644e-05
dummyMicOven	1	2283.547	2283.5471	10.94055	9.434986e-04
Residuals	12403	2588794.315	208.7232	NA	NA

[1] "Summary of model"

Call:
lm(formula = G_SC ~ MAT_S11 + CC_S11 + CR_S11 + BIO_S11 + ENG_S11 + 
    dummyMobile + dummyMicOven, data = clean_data)

Residuals:
     Min       1Q   Median       3Q      Max 
-146.210   -8.524    0.516    9.550   89.505 

Coefficients:
             Estimate Std. Error t value Pr(>|t|)    
(Intercept)  49.35108    0.92758  53.204  < 2e-16 ***
MAT_S11       0.28308    0.01781  15.895  < 2e-16 ***
CC_S11        0.34664    0.02018  17.178  < 2e-16 ***
CR_S11        0.39682    0.02084  19.044  < 2e-16 ***
BIO_S11       0.35114    0.02018  17.400  < 2e-16 ***
ENG_S11       0.45540    0.01260  36.133  < 2e-16 ***
dummyMobile  -1.05969    0.30659  -3.456 0.000549 ***
dummyMicOven -0.98461    0.29768  -3.308 0.000943 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 14.45 on 12403 degrees of freedom
Multiple R-squared:  0.6095,	Adjusted R-squared:  0.6093 
F-statistic:  2765 on 7 and 12403 DF,  p-value: < 2.2e-16

[1] "model Info comparison"

================================================
                        Dependent variable:     
                    ----------------------------
                                G_SC            
------------------------------------------------
MAT_S11                       0.283***          
                              (0.018)           
                                                
CC_S11                        0.347***          
                              (0.020)           
                                                
CR_S11                        0.397***          
                              (0.021)           
                                                
BIO_S11                       0.351***          
                              (0.020)           
                                                
ENG_S11                       0.455***          
                              (0.013)           
                                                
dummyMobile                  -1.060***          
                              (0.307)           
                                                
dummyMicOven                 -0.985***          
                              (0.298)           
                                                
Constant                     49.351***          
                              (0.928)           
                                                
------------------------------------------------
Observations                   12,411           
R2                             0.609            
Adjusted R2                    0.609            
Residual Std. Error     14.447 (df = 12403)     
F Statistic         2,765.427*** (df = 7; 12403)
================================================
Note:                *p<0.1; **p<0.05; ***p<0.01
[1] "Beta values of the model"

Call:
lm(formula = G_SC ~ MAT_S11 + CC_S11 + CR_S11 + BIO_S11 + ENG_S11 + 
    dummyMobile + dummyMicOven, data = clean_data)

Standardized Coefficients::
 (Intercept)      MAT_S11       CC_S11       CR_S11      BIO_S11      ENG_S11 
  0.00000000   0.14542621   0.15178532   0.17213426   0.16950329   0.28172068 
 dummyMobile dummyMicOven 
 -0.02074484  -0.01969440 

# Bonferonni p-value for most extreme obs
max(stdres(baseline_model2))
min(stdres(baseline_model2))

6.19893878703567

-10.1221105732264

# check for influencial outliers
cooksd<-sort(cooks.distance(baseline_model2))
# plotting the cooks model
plot(cooksd, pch="*", cex=2, main="Influential Obs by Cooks distance")  
abline(h = 4*mean(cooksd, na.rm=T), col="red")  # add cutoff line
text(x=1:length(cooksd)+1, y=cooksd, labels=ifelse(cooksd>4*mean(cooksd, na.rm=T),names(cooksd),""), col="red")  # add labels

#Create a QQ plotqqPlot(model, main="QQ Plot") #qq plot for studentized resid 
car::qqPlot(baseline_model2, main="QQ Plot") #qq plot for studentized resid

1. 1336
2. 7721

#Assess homocedasticity 
plot(baseline_model2,1)
plot(baseline_model2, 3)

#Create histogram and  density plot of the residuals
plot(density(resid(baseline_model2)))

# #Calculate Collinearity, will not run as you have na's in summary
vifmodel<-car::vif(baseline_model2)
vifmodel
#Calculate tolerance
1/vifmodel

MAT_S11

2.65871909360715

CC_S11

2.47974640393093

CR_S11

2.59481154280834

BIO_S11

3.01410436436377

ENG_S11

1.93075385913527

dummyMobile

1.1441562057376

dummyMicOven

1.12600498205671

MAT_S11

0.376120968328127

CC_S11

0.403267043119726

CR_S11

0.385384442570233

BIO_S11

0.331773515152015

ENG_S11

0.517932410321776

dummyMobile

0.874006534234839

dummyMicOven

0.888095537706632

Removing outliers from the scores variables which we saw in boxplots, using 1.5 rule

describe(cont_data)

A psych: 5 × 13

	vars	n	mean	sd	median	trimmed	mad	min	max	range	skew	kurtosis	se
	<int>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
MAT_S11	1	12411	64.32076	11.87365	64	63.83624	11.8608	26	100	74	0.39946028	0.12886390	0.10658126
CR_S11	2	12411	60.77842	10.02588	61	60.62846	10.3782	24	100	76	0.21419352	0.47665834	0.08999511
BIO_S11	3	12411	63.95053	11.15687	64	63.64568	10.3782	11	100	89	0.30329883	0.29791111	0.10014723
ENG_S11	4	12411	61.80106	14.29778	59	60.76866	14.8260	26	100	74	0.60676163	-0.37157362	0.12834091
G_SC	5	12411	162.71050	23.11248	163	162.93947	23.7216	37	247	210	-0.09539073	-0.07629832	0.20746419

summary(cont_data)

    MAT_S11           CR_S11          BIO_S11          ENG_S11     
 Min.   : 26.00   Min.   : 24.00   Min.   : 11.00   Min.   : 26.0  
 1st Qu.: 56.00   1st Qu.: 54.00   1st Qu.: 56.00   1st Qu.: 50.0  
 Median : 64.00   Median : 61.00   Median : 64.00   Median : 59.0  
 Mean   : 64.32   Mean   : 60.78   Mean   : 63.95   Mean   : 61.8  
 3rd Qu.: 72.00   3rd Qu.: 67.00   3rd Qu.: 71.00   3rd Qu.: 72.0  
 Max.   :100.00   Max.   :100.00   Max.   :100.00   Max.   :100.0  
     CC_S11            G_SC      
 Min.   :  0.00   Min.   : 37.0  
 1st Qu.: 54.00   1st Qu.:147.0  
 Median : 60.00   Median :163.0  
 Mean   : 60.71   Mean   :162.7  
 3rd Qu.: 67.00   3rd Qu.:179.0  
 Max.   :100.00   Max.   :247.0  

the maths behind this is if x < q1-1.5IQR or x > q3 + 1.5IQR

IQR(cont_data$MAT_S11)

16

# removing outliers from maths, first find ranges
lowerbound <- 56-1.5 * IQR(cont_data$MAT_S11)
upperbound = 72+1.5 * IQR(cont_data$MAT_S11)

# found a total of 137 outliers, these need to be removed
fn$sqldf("select count(MAT_S11) from clean_data where MAT_S11 <$lowerbound or MAT_S11 > $upperbound")
clean_data_v2<-clean_data[!(clean_data$MAT_S11 > upperbound | clean_data$MAT_S11 < lowerbound),]

A data.frame: 1 × 1

count(MAT_S11)
<int>
137

# removing outliers from critical, first find ranges
lowerbound <- 54-1.5 * IQR(cont_data$CR_S11)
upperbound = 67+1.5 * IQR(cont_data$CR_S11)
fn$sqldf("select count(CR_S11) from clean_data_v2 where CR_S11 <$lowerbound or CR_S11 > $upperbound")
# found 146 in remaining set outliers
clean_data_v2<-clean_data_v2[!(clean_data_v2$CR_S11 > upperbound | clean_data_v2$CR_S11 < lowerbound),]

A data.frame: 1 × 1

count(CR_S11)
<int>
179

# removing outliers from biology, first find ranges
lowerbound <- 56-1.5 * IQR(cont_data$BIO_S11)
upperbound = 71+1.5 * IQR(cont_data$BIO_S11)
lowerbound
upperbound
fn$sqldf("select count(BIO_S11) from clean_data_v2 where BIO_S11 <$lowerbound or BIO_S11 > $upperbound")
# found 121 in remaining set outliers
clean_data_v2<-clean_data_v2[!(clean_data_v2$BIO_S11 > upperbound | clean_data_v2$BIO_S11 < lowerbound),]

33.5

93.5

A data.frame: 1 × 1

count(BIO_S11)
<int>
121

# removing outliers from english, first find ranges
lowerbound <- 50-1.5 * IQR(cont_data$ENG_S11)
upperbound = 72+1.5 * IQR(cont_data$ENG_S11)
lowerbound
upperbound
fn$sqldf("select count(ENG_S11) from t where ENG_S11 <$lowerbound or ENG_S11 > $upperbound")
# found 0 in remaining set outliers
clean_data_v2<-clean_data_v2[!(clean_data_v2$ENG_S11 > upperbound | clean_data_v2$ENG_S11 < lowerbound),]

17

105

A data.frame: 1 × 1

count(ENG_S11)
<int>
0

# removing outliers from CC, first find ranges
lowerbound <- 54-1.5 * IQR(cont_data$CC_S11)
upperbound = 67+1.5 * IQR(cont_data$CC_S11)
lowerbound
upperbound
fn$sqldf("select count(CC_S11) from t where CC_S11 <$lowerbound or CC_S11 > $upperbound")
# found 151 in remaining set outliers
clean_data_v2<-clean_data_v2[!(clean_data_v2$CC_S11 > upperbound | clean_data_v2$CC_S11 < lowerbound),]

34.5

86.5

A data.frame: 1 × 1

count(CC_S11)
<int>
0

# removing outliers from G_SC, first find ranges
lowerbound <- 147-1.5 * IQR(cont_data$CC_S11)
upperbound = 179+1.5 * IQR(cont_data$CC_S11)
lowerbound
upperbound
fn$sqldf("select count(G_SC) from t where G_SC <$lowerbound or G_SC > $upperbound")
# found 1258 in remaining set outliers
clean_data_v2<-clean_data_v2[!(clean_data_v2$G_SC > upperbound | clean_data_v2$G_SC < lowerbound),]

127.5

198.5

A data.frame: 1 × 1

count(G_SC)
<int>
0

clean_data_v2

A data.frame: 10565 × 53

	GENDER	STRATUM	EDU_FATHER	EDU_MOTHER	OCC_FATHER	OCC_MOTHER	SISBEN	PEOPLE_HOUSE	INTERNET	TV	⋯	dummySis3	dummyJobNo	dummyJobPT	dummyJobFT	dummyRevenue1	dummyRevenue2	dummyRevenue3	dummyPhouseOne	dummyPhouse2t3	dummyPhouseAbove3
	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	<fct>	⋯	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>	<dbl>
1	F	Stratum 4	Incomplete Professional Education	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Three	Yes	Yes	⋯	0	1	0	0	1	0	0	0	1	0
4	F	Stratum 2	Not sure	Not sure	Other occupation	Independent	It is not classified by the SISBEN	Three	Yes	Yes	⋯	0	1	0	0	0	1	0	0	1	0
5	M	Stratum 4	Complete professional education	Complete professional education	Executive	Home	It is not classified by the SISBEN	One	Yes	Yes	⋯	0	1	0	0	0	0	1	1	0	0
6	F	Stratum 6	Complete professional education	Complete professional education	Independent	Executive	It is not classified by the SISBEN	Three	Yes	Yes	⋯	0	1	0	0	0	0	0	0	1	0
7	M	Stratum 5	Complete professional education	Complete professional education	Small entrepreneur	Executive	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	0	0	0	0	1
9	M	Stratum 2	Complete Secundary	Complete professional education	Independent	Operator	It is not classified by the SISBEN	Three	Yes	Yes	⋯	0	1	0	0	1	0	0	0	1	0
12	M	Stratum 2	Complete technique or technology	Complete Secundary	Technical or professional level employee	Entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	0	0	1	0	1	0	0	0	1
13	F	Stratum 3	Not sure	Incomplete technical or technological	Small entrepreneur	Home	It is not classified by the SISBEN	Five	No	Yes	⋯	0	1	0	0	0	1	0	0	0	1
14	M	Stratum 6	Complete professional education	Complete professional education	Entrepreneur	Small entrepreneur	It is not classified by the SISBEN	Six	Yes	Yes	⋯	0	1	0	0	0	0	0	0	0	1
15	F	Stratum 1	Incomplete primary	Incomplete primary	Small entrepreneur	Executive	Level 1	Two	No	No	⋯	0	0	0	1	1	0	0	0	1	0
16	F	Stratum 3	Complete technique or technology	Not sure	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Two	Yes	Yes	⋯	0	1	0	0	0	1	0	0	1	0
17	M	Stratum 3	Complete professional education	Complete professional education	Small entrepreneur	Executive	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	0	1	0	0	1
18	M	Stratum 3	Complete professional education	Complete professional education	Independent professional	Independent professional	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	0	1	0	0	1
19	M	Stratum 2	Complete technique or technology	Complete Secundary	Operator	Independent	Level 2	Four	Yes	Yes	⋯	0	0	1	0	1	0	0	0	0	1
20	M	Stratum 3	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	Esta clasificada en otro Level del SISBEN	Three	Yes	Yes	⋯	0	1	0	0	0	1	0	0	1	0
21	M	Stratum 3	Complete professional education	Complete professional education	Independent professional	Executive	It is not classified by the SISBEN	Three	Yes	Yes	⋯	0	1	0	0	1	0	0	0	1	0
22	M	Stratum 2	Incomplete primary	Incomplete Secundary	Independent	Home	It is not classified by the SISBEN	Four	Yes	No	⋯	0	1	0	0	1	0	0	0	0	1
23	M	Stratum 4	Complete primary	Incomplete primary	Independent	Home	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
24	M	Stratum 2	Incomplete primary	Incomplete primary	0	0	It is not classified by the SISBEN	Five	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
25	M	Stratum 3	Complete professional education	Incomplete Professional Education	Executive	Operator	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
27	M	Stratum 3	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
28	M	Stratum 6	Postgraduate education	Complete professional education	Executive	Auxiliary or Administrative	It is not classified by the SISBEN	Five	Yes	Yes	⋯	0	1	0	0	0	0	0	0	0	1
29	F	Stratum 4	Complete Secundary	Complete technique or technology	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
30	F	Stratum 3	Complete technique or technology	Complete technique or technology	Executive	Independent	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
31	M	Stratum 4	Complete Secundary	Incomplete Secundary	Other occupation	Other occupation	It is not classified by the SISBEN	Twelve or more	Yes	Yes	⋯	0	1	0	0	0	0	1	0	0	1
32	M	Stratum 3	Complete professional education	Complete professional education	Executive	Other occupation	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	0	1	0	0	1
33	M	Stratum 4	Complete professional education	Complete Secundary	Independent professional	Independent professional	It is not classified by the SISBEN	Two	Yes	Yes	⋯	0	1	0	0	0	1	0	0	1	0
34	M	Stratum 4	Incomplete Professional Education	Incomplete Professional Education	Independent	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
35	M	Stratum 4	Complete professional education	Complete professional education	Small entrepreneur	Small entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
36	M	Stratum 5	Complete professional education	Incomplete Secundary	Technical or professional level employee	Home	It is not classified by the SISBEN	Five	Yes	Yes	⋯	0	1	0	0	0	0	1	0	0	1
⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋱	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮
12377	M	Stratum 3	Complete professional education	Complete professional education	Executive	Independent	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
12378	M	Stratum 2	Not sure	Not sure	Other occupation	Other occupation	Level 2	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
12379	F	Stratum 2	Postgraduate education	Complete professional education	Technical or professional level employee	Small entrepreneur	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	0	1	0	0	1
12380	F	Stratum 4	Postgraduate education	Postgraduate education	Executive	Technical or professional level employee	It is not classified by the SISBEN	Three	Yes	Yes	⋯	0	1	0	0	0	0	1	0	1	0
12381	F	Stratum 2	Postgraduate education	Incomplete Professional Education	Independent	Auxiliary or Administrative	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
12382	F	Stratum 3	Complete professional education	Complete technique or technology	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
12384	M	Stratum 2	Complete Secundary	Complete technique or technology	Other occupation	Other occupation	It is not classified by the SISBEN	Five	Yes	Yes	⋯	0	1	0	0	1	0	0	0	0	1
12385	F	Stratum 3	Complete primary	Complete Secundary	Other occupation	Home	It is not classified by the SISBEN	Five	Yes	Yes	⋯	0	1	0	0	1	0	0	0	0	1
12386	M	Stratum 6	Postgraduate education	Postgraduate education	Executive	Executive	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	0	0	0	0	1
12388	F	Stratum 2	Complete Secundary	Complete Secundary	Other occupation	Other occupation	Level 2	Three	No	Yes	⋯	0	1	0	0	1	0	0	0	1	0
12389	F	Stratum 1	Incomplete primary	Complete primary	Independent	Home	Level 1	Three	No	No	⋯	0	1	0	0	1	0	0	0	1	0
12390	F	Stratum 1	Complete Secundary	Incomplete Secundary	Independent	Home	Level 1	Six	Yes	Yes	⋯	0	1	0	0	1	0	0	0	0	1
12391	F	Stratum 3	Complete professional education	Complete Secundary	Operator	Retired	It is not classified by the SISBEN	Three	Yes	Yes	⋯	0	1	0	0	1	0	0	0	1	0
12392	F	Stratum 3	Incomplete Professional Education	Complete technique or technology	Auxiliary or Administrative	Other occupation	It is not classified by the SISBEN	Two	Yes	Yes	⋯	0	1	0	0	1	0	0	0	1	0
12393	M	Stratum 2	Complete primary	Complete Secundary	Operator	Home	It is not classified by the SISBEN	Six	Yes	Yes	⋯	0	1	0	0	1	0	0	0	0	1
12394	M	Stratum 4	Complete professional education	Complete professional education	Executive	Other occupation	It is not classified by the SISBEN	Five	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
12395	M	Stratum 3	Incomplete primary	Complete Secundary	Independent	Home	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
12397	M	Stratum 4	Incomplete Professional Education	Complete professional education	Independent	Other occupation	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
12399	M	Stratum 1	Incomplete Secundary	Incomplete Secundary	Independent	Home	Level 1	Six	Yes	Yes	⋯	0	0	1	0	1	0	0	0	0	1
12400	F	Stratum 2	Complete Secundary	Complete primary	Other occupation	Independent	Level 1	Five	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
12401	F	Stratum 4	Complete professional education	Complete professional education	Technical or professional level employee	Technical or professional level employee	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	0	1	0	0	1
12402	F	Stratum 3	Complete Secundary	Incomplete technical or technological	Independent	Auxiliary or Administrative	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
12403	F	Stratum 2	Incomplete technical or technological	Complete technique or technology	Operator	Independent professional	Level 1	Six	Yes	Yes	⋯	0	1	0	0	1	0	0	0	0	1
12404	F	Stratum 3	Not sure	Not sure	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
12405	F	Stratum 3	Not sure	Not sure	Technical or professional level employee	Home	It is not classified by the SISBEN	Four	Yes	Yes	⋯	0	1	0	0	0	0	1	0	0	1
12406	M	Stratum 2	Incomplete technical or technological	Incomplete Secundary	Other occupation	Home	It is not classified by the SISBEN	Two	Yes	Yes	⋯	0	1	0	0	1	0	0	0	1	0
12407	M	Stratum 2	Ninguno	Complete Secundary	Other occupation	Auxiliary or Administrative	It is not classified by the SISBEN	Six	Yes	Yes	⋯	0	1	0	0	1	0	0	0	0	1
12409	M	Stratum 2	Complete technique or technology	Complete technique or technology	Retired	Home	Level 2	Five	Yes	Yes	⋯	0	1	0	0	0	1	0	0	0	1
12410	F	Stratum 3	Complete professional education	Complete professional education	Independent professional	Small entrepreneur	It is not classified by the SISBEN	Seven	Yes	Yes	⋯	0	1	0	0	0	0	1	0	0	1
12411	M	Stratum 3	Complete Secundary	Complete primary	Independent	Home	Level 1	Four	No	No	⋯	0	1	0	0	1	0	0	0	0	1

model with small residuals, in line

baseline_model7<-lm(formula = G_SC ~ dummyFatherOCSmallEnt+dummyFatherOCTechOrProf+dummyFatherOCOperator
                    +dummyFatherOCOther+dummyFatherOCIndi+dummyFatherOCENT+dummyEDUMotherIncProfEdu
                    +dummyEDUMotherPostGrad+dummyEDUMotherINCtech+dummyEDUMotherCompProfEdu
                    +dummySTtech+dummySTtechAca+dummyMicOven+dummyMobile+dummySchoolN
                    +dummyGender+dummyInternet, data= clean_data_v2)

max(stdres(baseline_model7))
min(stdres(baseline_model7))

2.65807781764441

-2.68579029078517

print("Anova test")
anova(baseline_model7)
print("Summary of model")
summary(baseline_model7)
print("model Info comparison")
stargazer(baseline_model7, type="text") #Tidy output of all the required stats
print("Beta values of the model")
lm.beta(baseline_model7)

[1] "Anova test"

A anova: 18 × 5

	Df	Sum Sq	Mean Sq	F value	Pr(>F)
	<int>	<dbl>	<dbl>	<dbl>	<dbl>
dummyFatherOCSmallEnt	1	1509.6201	1509.6201	5.2152513	2.240940e-02
dummyFatherOCTechOrProf	1	7235.0622	7235.0622	24.9948109	5.840910e-07
dummyFatherOCOperator	1	8765.4279	8765.4279	30.2817316	3.823631e-08
dummyFatherOCOther	1	6424.6707	6424.6707	22.1951692	2.494392e-06
dummyFatherOCIndi	1	48167.5231	48167.5231	166.4032865	8.714607e-38
dummyFatherOCENT	1	136.5440	136.5440	0.4717157	4.922140e-01
dummyEDUMotherIncProfEdu	1	3563.2873	3563.2873	12.3100107	4.524128e-04
dummyEDUMotherPostGrad	1	48851.7715	48851.7715	168.7671445	2.703905e-38
dummyEDUMotherINCtech	1	467.0162	467.0162	1.6133908	2.040438e-01
dummyEDUMotherCompProfEdu	1	55182.7771	55182.7771	190.6387308	5.450909e-43
dummySTtech	1	4323.8660	4323.8660	14.9375652	1.117942e-04
dummySTtechAca	1	29462.4487	29462.4487	101.7832759	7.943633e-24
dummyMicOven	1	24627.0939	24627.0939	85.0786817	3.414419e-20
dummyMobile	1	18820.2817	18820.2817	65.0180149	8.225551e-16
dummySchoolN	1	21557.2856	21557.2856	74.4734822	7.029538e-18
dummyGender	1	2501.2225	2501.2225	8.6409184	3.294086e-03
dummyInternet	1	2180.8309	2180.8309	7.5340688	6.064549e-03
Residuals	10547	3052961.7347	289.4626	NA	NA

[1] "Summary of model"

Call:
lm(formula = G_SC ~ dummyFatherOCSmallEnt + dummyFatherOCTechOrProf + 
    dummyFatherOCOperator + dummyFatherOCOther + dummyFatherOCIndi + 
    dummyFatherOCENT + dummyEDUMotherIncProfEdu + dummyEDUMotherPostGrad + 
    dummyEDUMotherINCtech + dummyEDUMotherCompProfEdu + dummySTtech + 
    dummySTtechAca + dummyMicOven + dummyMobile + dummySchoolN + 
    dummyGender + dummyInternet, data = clean_data_v2)

Residuals:
    Min      1Q  Median      3Q     Max 
-45.659 -12.787   0.248  12.937  45.184 

Coefficients:
                          Estimate Std. Error t value Pr(>|t|)    
(Intercept)               166.5330     0.4213 395.255  < 2e-16 ***
dummyFatherOCSmallEnt      -2.8333     0.7595  -3.731 0.000192 ***
dummyFatherOCTechOrProf    -0.7808     0.5308  -1.471 0.141312    
dummyFatherOCOperator      -1.6232     0.5698  -2.849 0.004395 ** 
dummyFatherOCOther         -2.1409     0.6388  -3.352 0.000806 ***
dummyFatherOCIndi          -2.2807     0.4703  -4.849 1.26e-06 ***
dummyFatherOCENT           -1.4707     0.9298  -1.582 0.113757    
dummyEDUMotherIncProfEdu    3.8178     0.8556   4.462 8.19e-06 ***
dummyEDUMotherPostGrad      8.1257     0.6618  12.278  < 2e-16 ***
dummyEDUMotherINCtech       1.9484     1.0062   1.936 0.052844 .  
dummyEDUMotherCompProfEdu   3.5867     0.4278   8.384  < 2e-16 ***
dummySTtech                -1.4116     0.6241  -2.262 0.023718 *  
dummySTtechAca             -1.1841     0.4437  -2.669 0.007623 ** 
dummyMicOven               -2.0320     0.3987  -5.096 3.53e-07 ***
dummyMobile                -1.9945     0.4365  -4.570 4.94e-06 ***
dummySchoolN               -3.6461     0.4362  -8.359  < 2e-16 ***
dummyGender                -0.9994     0.3366  -2.969 0.002993 ** 
dummyInternet              -1.3525     0.4927  -2.745 0.006065 ** 
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 17.01 on 10547 degrees of freedom
Multiple R-squared:  0.08505,	Adjusted R-squared:  0.08357 
F-statistic: 57.67 on 17 and 10547 DF,  p-value: < 2.2e-16

[1] "model Info comparison"

=====================================================
                              Dependent variable:    
                          ---------------------------
                                     G_SC            
-----------------------------------------------------
dummyFatherOCSmallEnt              -2.833***         
                                    (0.760)          
                                                     
dummyFatherOCTechOrProf             -0.781           
                                    (0.531)          
                                                     
dummyFatherOCOperator              -1.623***         
                                    (0.570)          
                                                     
dummyFatherOCOther                 -2.141***         
                                    (0.639)          
                                                     
dummyFatherOCIndi                  -2.281***         
                                    (0.470)          
                                                     
dummyFatherOCENT                    -1.471           
                                    (0.930)          
                                                     
dummyEDUMotherIncProfEdu           3.818***          
                                    (0.856)          
                                                     
dummyEDUMotherPostGrad             8.126***          
                                    (0.662)          
                                                     
dummyEDUMotherINCtech               1.948*           
                                    (1.006)          
                                                     
dummyEDUMotherCompProfEdu          3.587***          
                                    (0.428)          
                                                     
dummySTtech                        -1.412**          
                                    (0.624)          
                                                     
dummySTtechAca                     -1.184***         
                                    (0.444)          
                                                     
dummyMicOven                       -2.032***         
                                    (0.399)          
                                                     
dummyMobile                        -1.995***         
                                    (0.436)          
                                                     
dummySchoolN                       -3.646***         
                                    (0.436)          
                                                     
dummyGender                        -0.999***         
                                    (0.337)          
                                                     
dummyInternet                      -1.352***         
                                    (0.493)          
                                                     
Constant                          166.533***         
                                    (0.421)          
                                                     
-----------------------------------------------------
Observations                        10,565           
R2                                   0.085           
Adjusted R2                          0.084           
Residual Std. Error           17.014 (df = 10547)    
F Statistic               57.668*** (df = 17; 10547) 
=====================================================
Note:                     *p<0.1; **p<0.05; ***p<0.01
[1] "Beta values of the model"

Call:
lm(formula = G_SC ~ dummyFatherOCSmallEnt + dummyFatherOCTechOrProf + 
    dummyFatherOCOperator + dummyFatherOCOther + dummyFatherOCIndi + 
    dummyFatherOCENT + dummyEDUMotherIncProfEdu + dummyEDUMotherPostGrad + 
    dummyEDUMotherINCtech + dummyEDUMotherCompProfEdu + dummySTtech + 
    dummySTtechAca + dummyMicOven + dummyMobile + dummySchoolN + 
    dummyGender + dummyInternet, data = clean_data_v2)

Standardized Coefficients::
              (Intercept)     dummyFatherOCSmallEnt   dummyFatherOCTechOrProf 
               0.00000000               -0.03681232               -0.01535243 
    dummyFatherOCOperator        dummyFatherOCOther         dummyFatherOCIndi 
              -0.03039590               -0.03433018               -0.05440841 
         dummyFatherOCENT  dummyEDUMotherIncProfEdu    dummyEDUMotherPostGrad 
              -0.01533125                0.04249604                0.12082231 
    dummyEDUMotherINCtech dummyEDUMotherCompProfEdu               dummySTtech 
               0.01823986                0.08635133               -0.02247241 
           dummySTtechAca              dummyMicOven               dummyMobile 
              -0.03015472               -0.05286636               -0.05076337 
             dummySchoolN               dummyGender             dummyInternet 
              -0.10247546               -0.02770654               -0.03118699 

# check for influencial outliers
cooksd<-sort(cooks.distance(baseline_model7))
# plotting the cooks model
plot(cooksd, pch="*", cex=2, main="Influential Obs by Cooks distance")  
abline(h = 4*mean(cooksd, na.rm=T), col="red")  # add cutoff line
text(x=1:length(cooksd)+1, y=cooksd, labels=ifelse(cooksd>4*mean(cooksd, na.rm=T),names(cooksd),""), col="red")  # add labels

plot(baseline_model7,1)
plot(baseline_model7, 3)

car::qqPlot(baseline_model7, main="QQ Plot")

3060

2621

10846

9283

plot(density(resid(baseline_model7)))

# #Calculate Collinearity, will not run as you have na's in summary
vifmodel<-car::vif(baseline_model7)
vifmodel
#Calculate tolerance
1/vifmodel

dummyFatherOCSmallEnt

1.12247412463399

dummyFatherOCTechOrProf

1.25556243588667

dummyFatherOCOperator

1.31217743973462

dummyFatherOCOther

1.20945253241445

dummyFatherOCIndi

1.45107801180345

dummyFatherOCENT

1.08307491848482

dummyEDUMotherIncProfEdu

1.04543886455897

dummyEDUMotherPostGrad

1.11618713661921

dummyEDUMotherINCtech

1.02277213947967

dummyEDUMotherCompProfEdu

1.22288863894104

dummySTtech

1.1377467060993

dummySTtechAca

1.47161795768227

dummyMicOven

1.24053992218352

dummyMobile

1.42241202547492

dummySchoolN

1.732289588556

dummyGender

1.00376512929201

dummyInternet

1.48815113349289

dummyFatherOCSmallEnt

0.890889133258257

dummyFatherOCTechOrProf

0.796455812485187

dummyFatherOCOperator

0.762092053801996

dummyFatherOCOther

0.826820377980179

dummyFatherOCIndi

0.689142824759066

dummyFatherOCENT

0.923297163412264

dummyEDUMotherIncProfEdu

0.956536086327594

dummyEDUMotherPostGrad

0.895907117357463

dummyEDUMotherINCtech

0.977734884828541

dummyEDUMotherCompProfEdu

0.817735947621487

dummySTtech

0.878930252787493

dummySTtechAca

0.679524189535547

dummyMicOven

0.806100619672008

dummyMobile

0.70303117668463

dummySchoolN

0.577270686498542

dummyGender

0.996248993731568

dummyInternet

0.671974759480825